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

procedure num ( x: integer );
var s: string;
i: integer;
begin
s := IntToStr(x);
for i := 1 to length(s) do
writeln( i, ' цифра: ', s[i] );
end;

var numeric: integer;
begin
write('Введите число: ');
readln(numeric);
num(numeric);
end.