Напишите в паскале программу, которая считывает слово и выводит его побуквенно. пример: ввод: москва программа выводит: м о с к в а

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