Нужно, чтобы каждая цифра числа выводилась в столбик например 4758 4 7 5 8

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
  s:string;
  i:integer;
begin
  Write('Введите число: '); Readln(s);
  for i:=1 to Length(s) do Writeln(s[i])
end.

Тестовое решение:
Введите число: 4758
4
7
5
8

А это - современный вариант:

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  ReadlnString('Введите число:').Println(NewLine)
end.

Тестовое решение:
Введите число: 4758
4
7
5
8