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

var
   a : integer;                        // объявляем переменную целочисленного типа.
Procedure P1(a:integer);      //начало процедуры.
  var
     i : integer;                    // объявляем переменную целочисленного типа.
     s : string;                     // объявляем переменную строкового типа.
begin
     s:=inttostr(a);                       // преобразуем число в строчку.
     for i := 1 to length(s) do        // начало цикла.
     writeln(s[i]);                         // вывод каждой числа на экран.
end;
begin                                                                   // начало основной программки.
    writeln(Введите случайное число:);           //вывод строчки на экран.
    read(a);                                                           // считываем число, введенное с клавиатуры.
    P1(a);                                                             // вызов процедуры с параметром.
end.