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

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. Проверено