Pascal'da Sayı Gizleme KODU ( K'A)

program goto_siz(input,output);
uses wincrt;

const

   hak = 6;  [COLOR=#A9A9A9]{Kullanıcıya Verilen Tahmin sayisi}[/COLOR]
var
   gizli,tahmin : char;
   tahmin_sayisi : integer;
   bulduk : boolean;
 
begin

   randomize;   [COLOR=#A9A9A9]  {RANDOMIZE bir TP komutudur}[/COLOR]
   gizli := char(ord('a') + random(26));  [COLOR=#A9A9A9]{RANDOM bir TP fonksiyonudur}[/COLOR]
   clrscr;
   writeln('Gizli bir harf tutuyorum. Tahmin et ! ');
   writeln(hak,' deneme hakkınız vardır.');
   writeln;
   tahmin_sayisi := 0;
   repeat
      tahmin_sayisi := tahmin_sayisi + 1;
      write('Tahmin : ');
      readln(tahmin);
      if tahmin in ['A'..'Z'] then   [COLOR=#A9A9A9]{Buyuk harfleri kucuk harflere çevirelim.}}[/COLOR]
     tahmin := char(ord(tahmin) + ord('a') - ord('A'));     
bulduk := tahmin = [B]gizli[/B][COLOR=#A9A9A9]{Cevap}[/COLOR]
   until (tahmin_sayisi = hak) or bulduk;
   writeln;
   if bulduk then
      writeln('Tebrikler ',tahmin_sayisi,' inci tahminiz doğrudur.')
   else                                                               [COLOR=#A9A9A9]{Eger Yanlis tahmin olursa asagidaki cevap kullaniciya  yansitilir}[/COLOR]
      writeln('Gecmis olsun. Gizli harf ',gizli,' idi.')
end.