Составьте программу которая предлагает ввести строку и выводит её на экран по одному символу в столбик

Var s : string;
i : integer;
begin
readln(s);
for i := 1 to length(s) do writeln(s[i]);
end.