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

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;