Đổi cơ số. (IToHex)

Lập trình để đổi một số tự nhiên ra dạng thập lục phân (Hex).
                                                                 Giải
Const Hex: Array[0..15] of char=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
Var n,i,tg,ts: Integer; d:Array[0..100] of Integer;
BEGIN
       Write('Cho n = '); Readln(n);
       tg:=n; i:=0; d[i]:=n mod 16;
       While n div 16<>0 do
           Begin
               n:=n div 16; i:=i+1; d[i]:=n mod 16;
           End;
       ts:=i;
       Write('-> Doi co so nhu sau: ',tg,' (Cs10) = ');
       For i:=ts downto 0 do
           Write(' ',Hexchar[d[i]]);
       Write(' (Cs16)');
       Readln;
END.