Перевести де ся личное число в двойную

Var b:array [1..255] of integer;
    a, i, n:integer;
begin
     readln(a);
     i := 0;
     while (a >= 1) do
     begin
          i := i + 1;
        b[i] := a mod 2;
      a := a div 2;
     end;
   n := i;
   for i := n downto 1 do write(b[i]);
end.

Проверено:)