Đổi cơ số. (ItoBin)

Lập trình để đổi một số tự nhiên ra dạng nhị phân (Binary).
                                                                 Giải
Var  n,itg,ts: Integer; d:Array[0..100] of Integer;
BEGIN
       Write('Cho n = '); Readln(n);
       tg:=n; i:=0; d[i]:=n mod 2;
       While n div 2<>0 do
           Begin
               n:=n div 2; i:=i+1; d[i]:=n mod 2;
           End;
       ts:=i;
       Write('-> Doi co so nhu sau: ',tg,' (Cs10) = ');
       For i:=ts downto 0 do Write(' ',Binchar[d[i]]);
       Write(' (Cs2)');
       Readln;
END.