Помогите написать программу паскаль, которая формирует массив, элементами которого являются цифры заданного натурального числа.

var

a: array of byte; / / char?

b, d: integer;

begin

readln (b);

SetLength (a, length (IntToStr (b)));

for d : = 0 to length (a) - 1 do

begin

a[d] : = b mod 10;

b : = b div 10;

end;

for d : = 0 to (length (a) - 1) do

write (a[d], ' ');

end.