Цифры натурального числа поместить в массив в том же порядке, в каком они записаны в числа. (турбо Паскаль)

Var j, n, i:longint;

a, b:array [1 ... 1000] of integer;

begin

readln (n) ; / / считываем число

i:=1; / / начинаем с первого элемента массива

while (n>0) do / / пока n больше нуля

begin

a[i]:=n mod 10; / / тем самым выбираем последнюю цифру числа

n:=n div 10; / / откидываем последнюю цифру

i:=i+1; / / следующий элемент массива

end;

/ / по окончании в массиве a будет храниться наше число только

/ / в обратном порядке

i:=i-1; / / теперь i равно длине числа + 1 поэтому отнимаем 1

for j:=i downto 1 do / / с конца массива а до 1

begin

b[i-j+1]:=a[j]; / / заполняем b в обратном порядке

end;

//теперь в массиве b хранится наше число в нужном порядке

for j:=1 to i do

begin

write (b[j],' ') ;

end;

end.