Program konversi desimal ke biner,oktal dan heksadesimal pascal

Ni source codenya langsung copy aja ke pascal ok bos :

Uses wincrt;
Var
des , desi : integer;
jawaban : char;

procedure biner(des, desi : integer);
var bin : string;
begin

bin:='';
repeat
  if(des mod 2 = 0) then bin:='0'+bin
  else bin:='1' + bin;
  des:=des div 2;
until des=0;
writeln;
writeln('(',desi,') desimal = ',bin,' (Biner)');
end;

procedure heksa(des, desi : integer);
var heks : string;
h : integer;
begin
Heks:='';

repeat
   h:=des 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;
   des:=des div 16;
until des=0;
writeln('(',desi,') desimal = ',Heks,' (Heksadesimal)');
end;

procedure oktal(des, desi : integer);
var oktal : string;
    o : integer;
begin
oktal:='';
repeat
   o:=des mod 8;
   case o of
   0:oktal:='0'+oktal;
   1:oktal:='1'+oktal;
   2:oktal:='2'+oktal;
   3:oktal:='3'+oktal;
   4:oktal:='4'+oktal;
   5:oktal:='5'+oktal;
   6:oktal:='6'+oktal;
   7:oktal:='7'+oktal;
   end;
   des:= des div 8;
until des=0;
writeln('(',desi,') desimal = ',oktal,' (Oktal)');
end;

begin
repeat
clrscr;
writeln('************************************************************** ');
writeln('* Program Konversi Desimal ke Heksadesimal, Biner dan Oktal  * ');
writeln('*  oleh: Habibie Ed Dien, Shohib, Nanda E.p. & Ahmad Rizal   * ');
writeln('************************************************************** ');
writeln;

Write('Masukkan Suatu Bilangan Desimal : ');Readln(des);
desi:=des;
biner(des,desi);
heksa(des,desi);
oktal(des,desi);

writeln;writeln;
write('Mau coba lagi [Y/T]? : ');readln(jawaban);
until upcase(jawaban)<>'Y';
end.

running programnya seperti ini :

 

kalau masih bingunk comment ya????