Program Konvert Nama ke ASCII dengan Pascal

Tugas pertama saya di mata kuliah Matematika Terapan tu saya disuruh membuat program convert dari nama saya ke kode ascii yang memakai bahasa Pascal…tapi ni program gak cumen bisa convert nama saya doank ug,,,nyantai aja…hehe semua nama alias huruf apapun (karakter space juga) yang dimasukan bisa di convert jadi kode ascii….yah saya kira basa-basinya udah cukup ni…hehehe cekidot!!
Program ascii_heksa;
Uses wincrt;
Var
Ch,Ch1   : Char;
Bil,a,i : integer;
procedure heksa;
var
Heks : string;
h : integer;
begin
Heks :=”;
repeat
h := Bil mod 16;
case h of
0: Heks:= ’0′ + Heks;
1: Heks:= ’1′ + Heks;
2: Heks:= ’2′ + Heks;
3: Heks:= ’3′ + Heks;
4: Heks:= ’4′ + Heks;
5: Heks:= ’5′ + Heks;
6: Heks:= ’6′ + Heks;
7: Heks:= ’7′ + Heks;
8: Heks:= ’8′ + Heks;
9: Heks:= ’9′ + Heks;
10: Heks:= ‘A’ + Heks;
11: Heks:= ‘B’ + Heks;
12: Heks:= ‘C’ + Heks;
13: Heks:= ‘D’ + Heks;
14: Heks:= ‘E’ + Heks;
15: Heks:= ‘F’ + Heks;
end;
Bil := Bil div 16;
until Bil = 0;
writeln(‘Kode Heksa : ‘,Heks);
end;
procedure cover;
begin
writeln(‘*********************************************************’);
writeln(‘*     Program Matematika Terapan Kode ASCII     *’);
writeln(‘*                                                                              *’);
writeln(‘*                  POLITAMA SURAKARTA                  *’);
writeln(‘*********************************************************’);
end;
Begin
repeat
clrscr;cover;
write(‘     Berapa Karakter Nama Anda (termasuk spasi) : ‘);
readln(i);
clrscr;
writeln(‘     Silahkan tulis nama anda :’);
writeln;
for a := 1 to i do
begin
write(a,’.’);
Ch  := Readkey;
Bil := Ord(Ch);
write(‘ ‘,Ch);
write(‘   Karakter : ‘,Ch,’  ==>  ‘);
write(‘Kode ASCII : #’,Bil,’  ==>  ‘);
heksa;
end;
write(‘Coba Lagi ( Y/T ) = ‘);
repeat
Ch1 := Readkey;
Ch1 := Upcase(Ch1);
write(‘ ‘,Ch1);
Until Ch1 in ['Y','T'];
Until Ch1 = ‘T’;
writeln;
write(‘   ——* Matur Suwun *——’);
end.