Konversi Angka 1-26 ke Huruf

uses crt;
var
   n: integer;
   re: char;
   hasil:string;
   ulang:boolean;
begin
   clrscr;
   ulang:=true;
   repeat
   write('Isikan 1-26 KONVERSI Angka ke Huruf: ');readln(n);
   If n in[1..26] then
      Hasil:=chr(n+64)
   else
      hasil:='angka yang anda masukan diluar dari 1-26';

   Writeln('Hasil: ',Hasil);

   writeln;
   repeat
   write('Apakah anda ingin coba lagi jika iya Jwb (Y), jika tidak Jwb (N)');readln(re);
   if upcase(re)='Y' then
      ulang:=true
   else if upcase(re)='N' then
      ulang:=false;
   until (upcase(re)='Y') or (upcase(re)='N');
   writeln;
   until ulang=false;
   readln;
end.