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

Var str, i, m:integer;

n: string;

a: array[1 ... 10] of integer;

begin

write ('Введите число: ') ;

readln (str) ;

if str < 0 then str : = - str; / / удаляем знак числа

n : = IntToStr (str) ; / / преобразуем число в массив

m : = length (n) ; / / считаем элементы массива

for i : = 1 to m do writeln (n[i]) ; / / выводим элементы (цифры) числа

end.