[gokhanaygun]

program adamas;

uses crt;
const
kelime:array[1..44]of string=('mehmet','ahmet','yusuf','yasin','suleyman ','riza','suat','serhat','cemil','muharrem',
'televizyon','radyo','otobus','feribot','muhendis' ,'fabrika','kamyon','sinek','telefon','sigara','iz marit','bilgisayar','saat',
'defter','kalemtiras','un','seker','makarna','pata tes','domates',
'patlican','meyve','lahana','kiraz','seftali','bal ik','kasaba','intihar','mahkum','hakim','avukat',' tekstil','sekerpare',
'dut');

var
k,i,j,hak:integer;
bul:string;
m,s:string;
t,tus:char;

begin
repeat
clrscr;
textbackground(1);
textcolor(14);
gotoxy(1,3);
writeln(':::::ADAM ASMACA:::::: hadi bakalim.....KOLAY GELSIN.');
gotoxy(25,5);
writeln('MEHMET ACA');
hak:=6;
randomize;
i:=random(44)+1;
bul:=kelime[i];
k:=length(bul);
fillchar(s,k+1,'*');
s[0]:=chr(k);
gotoxy(5,6);writeln('bulunacak kelime'); GOTOXY(5,7);writeln('__________');
gotoxy(40,6); writeln('hakkiniz'); gotoxy(40,7); writeln('______');
gotoxy(5,8); write(s);
repeat
gotoxy( 40,8); writeln(hak);
m:=s;
t:=readkey;
for j:=1to length (bul) do
begin
if bul[j]=t then
begin
delete(m,j,1);
insert(t,m,j);
end;
end;
if m=s then hak:=hak-1;
s:=m;
gotoxy(5,8); write(s);
until(hak=0) or (s=bul);
gotoxy(20,15);
if (hak=0) then writeln('kaybettiniz kelime',' ',bul,' ','olacakti')
else writeln('tebrikler. bildiniz.');
gotoxy(30,20);writeln('bir daha oynamak istermisiniz? (E/H)');
tus:=upcase(readkey);
until tus='H';
end.

{mehmet aca ytu bilg. muh. 1.sinif}