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

Var
a:integer;
procedure Stolbic(c:integer);
var
s:string;
i:integer;
begin
str(c,s);
for i:=1 to length(s) do
writeln(s[i]);
end;
begin
writeln('введите число:');
readln(a);
writeln('результат:');
stolbic(a);
end.

Var
a:integer;
procedure Stolbic(c:integer);
var 
s:string; 
i:integer;
begin
str(c,s);
for i:=1 to length(s) do
writeln(s[i]);
end;
begin
writeln('введите число);
readln(a);
writeln('результат);
stolbic(a)