Algoritma - Conversi Decimal ke Biner

Conversi bilangan decimal ke bilangna biner :
Source code =>
uses crt;
var
n, b : byte;
a : array [1..64] of byte;
begin
clrscr;
write ('Input Angka :');readln (n);
b := 1;
repeat

a[b] := n mod 2;
n := n div 2;
inc(b);
until (n=1)or (n=0);

a[b] := n;
if b <>
for n := 1 to (8-b) do
write ('0':2);

for n := b downto 1 do
begin
write (a[n]:2);
end;
readln;
end.

Thanks.. Khairil 12