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

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.