ucapan dudul buat yang ultah pake turbo pascal

copas aja tulisan dibawah ini ke turbo pascal for windows.

program selamat_ulang_tahun;
uses wincrt;
var
umur : integer;
nama : string[30];
jawab : char;
begin
writeln ('=====================================');
write ('nama => : '); readln (nama);
write ('umur => : '); readln (umur);
writeln ('*************************************');
writeln;
writeln ('met ultah om ',nama);
writeln;
writeln ('=====================================');
writeln ('ini ada ucapan kecil2an,,');
writeln ('kalo mau liat tekan "Y" (pake huruf kapital ya)');
writeln ('kalo nda mau ya teken aja "N" (pake huruf kapital)');
writeln; write ('mau apa nda? hayoo(Y/N) ==> : '); readln (jawab);
if jawab = 'Y' then
begin
writeln ('============xxxxxxxxxxx==============');
writeln ('happy birth day to you');
writeln ('happy birth day to you');
writeln ('happy birth day, happy birth day');
writeln ('happy birth day to ',nama, ' yang ke- ',umur);
writeln ('wekekekeke');
end;
if jawab = 'N' then
begin
writeln ('yaahhh,, oke deh nda opo2');
writeln ('yang penting py birth day ya..');
end;
end.

buat yang lom punya programnya donlot dulu disni