Помогите составить програму перевода из 10 в 2 число 100.

Var

b:array[1 ... 100001] of integer;

var a, c, i:integer;

begin

c:=0;

write ('десятичное число: ') ;

readln (a) ;

while a0 do

begin

if a mod 2 = 0 then

begin

a:=a div 2;

c:=c+1;

b[c]:=0;

end;

if a mod 2 0 then

begin

a:=a div 2;

c:=c+1;

b[c]:=1;

end;

end;

write ('двоичное число: ') ;

for i:=c downto 1 do

write (b[i])

end.