Извлечение цифр числа

С клавиатуры вводится целое число. Определить, из каких цифр оно состоит, то есть вывести на экран отдельные цифры числа.

var
    n: longint;

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

    { Значение n может быть отрицательным.
      Берем абсолютное значение числа } 
    n := abs(n);
    
    repeat // Повторять до тех пор...

        // вывод последней цифры числа
        writeln(n mod 10); 

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

end.

Пример выполнения программы:

ведите целое число: -3487009
9
0
0
7
8
4
3