Less than, Greater than :) Pascal Programming

Praktikum 3.1
Selamat mencoba.... (Lazarus Pascal)

Script :

program tutor3;
uses wincrt,crt;
var x,y:integer;
  pilih:char;
  label baca;
begin
  baca:
  clrscr;
  Writeln ('Program Membaca Dua Bilangan Bulat');
  Write ('Musukkan Bilangan Pertama: '); readln(x);
  Write ('Musukkan Bilangan Kedua: '); readln(y);
  if x > y then
  writeln ('Anda tentu tahu bahwa ',x,' > ',y)
  else
  writeln ('Anda tentu tahu bahwa ',x,' <= ',y);
  writeln;
  write ('Mau melanjutkan? (Y/T): ');readln(pilih);
  if (pilih='Y') or (pilih='y') then goto baca;
  Writeln('Program anda sudah selesai.... terimakasih :) ');
  readln;
end.