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

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

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