ganti kata

program ganti_kata;
uses wincrt;
var
lagi : char;
kata : string[50];

Begin
lagi := 'y';
clrscr;
writeLn('Kata dibaris ini akan diganti dgn kata baru');
while (lagi='y') or (lagi='Y') do
 Begin
  gotoXY(1,3);
  clrEol;
  write('Kata pengganti (maks 50 karakter) : ');
  ReadLn(kata);
  gotoXY(1,1);
  clrEol;
  writeLn(kata);
  gotoXY(1,5);
  clrEol;
  write('Mau diganti lagi (y/t) ? ');
  ReadLn(lagi);
 end;
end.