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

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)