Hogy lehet pascalban 10-es számrendszerből binárisba?

Tessék csemegézz:

program dectobin;

uses sysutils;

var dec, i, n : integer;

a_tomb : array[1..100] of byte;

a_dintomb : array of byte;

a_string : string;

begin

Write('Kerem a decimalis szamot: ');

ReadLn(dec);

i := 0;

repeat

Inc(i);

SetLength(a_dintomb, i);

a_tomb[i] := dec mod 2;

a_string := a_string + IntToStr( dec mod 2);

a_dintomb[i - 1] := dec mod 2;

dec := dec div 2;

until(dec = 0);

Write(#10#13+'A szam binarisan tombbol: ');

for n := i downto 1 do Write(a_tomb[n]);

Write(#10#13+'A szam binarisan dinamikus tombbol: ');

for n := i - 1 downto 0 do Write(a_dintomb[n]);

Write(#10#13+'A szam binarisan stringbol: ');

for n := i downto 1 do Write(a_string[n]);

ReadLn;

end.