Напишите программу, которая выводит на экран все цифры числа начиная с

Var    str, i, m:integer;
n: string;
a: array[1..10] of integer;
begin
write('Введите число: ');
readln(str);
if str lt; 0 then str := -str; // устраняем символ числа
n := IntToStr(str); // преобразуем число в массив
m := length(n); // считаем элементы массива
for i := 1 to m do writeln(n[i]); // выводим элементы (числа) числа
end.