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

uses crt;
var
a, n, i: integer ;

begin
writeln (Введите число.);
read (a);
n := 0;
while a gt; 0 do
begin
n := n * 10;
n := n + (a mod 10);
a := a div 10;
end;

writeln (Цифры в составе данного числа: );
while n gt; 0 do
begin
i := n mod 10;
n := n div 10;
writeln (i);
end;
end.