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

Предыдущий
вопрос Следующий
вопрос

program DigitsToArray;

const
MAX = 100;

var
num, i: integer;
digits: array[1..MAX] of integer;

begin
writeln('Введите натуральное число: ');
readln(num);

i := 0;
while num > 0 do
begin
i := i + 1;
digits[i] := num mod 10;
num := num div 10;
end;

writeln('Цифры натурального числа в массиве: ');
for i := i downto 1 do
write(digits[i], ' ');

end.