graduation program

uses wincrt;
var
x,y,totalxy : real;
lagi : char;
nama,keterangan,pesan : string[20];

begin
 lagi := 'y';
  while (lagi = 'y') or (lagi = 'Y') do
  begin
 
  write('Masukan Nama Anda : '); readln(nama);
  writeLn;
  write('Hallo ',nama,', Coba kamu');
  WriteLn(' masukan nilai x,y');
  write('masukan nilai x..= '); ReadLn(x);
  write('masukan nilai y..= '); ReadLn(y);
  writeLn;
  Writeln ('================================');
  x:=x*60/100;
  write ('nilaix: ');
  writeln (x:2:2);
  Writeln ('================================');
  y:=y*40/100;
  write ('nilaiy: ');
  writeln (y:2:2);
  Writeln ('================================');
  totalxy:=x+y;
  write ('total_Nilaixy : ');
  writeln (totalxy:2:2);
  Writeln ('================================');
  if (totalxy> 80) then
  begin
  keterangan := 'Anda Lulus';
  pesan :='Selamat dan Pertahankan!';
  end
  else if (totalxy>= 60)and(totalxy<80) then  
  begin
  keterangan :='Anda Cadangan';
  pesan :='Tingkatkan lagi belajarnya';
  end
  else 
  begin  
  keterangan :='Tidak Lulus';
  pesan:='Jangan Menyerah yO.. Coba Lagi';
   
  end;  
  write ('Hasil : ');
  writeln (keterangan);
  write ('Saran: ');
  writeln (pesan);
  writeLn;
  write('Mau hitung lagi apa tidak (y/t), ',nama,' ? ');
  readLn(lagi);
  writeln ('-------------------------------------------------------------');
 end;
end.