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

Procedure Number(number:integer); var len,i :integer;        str :string ; begin         str := intToStr(number);         len := length(str);         for i:= 1 to len do            writeln(str[i]);     end;