{* Красивый вывод строки *}

Unit STR_2;
Interface
Implementation
Begin
 writeln('Красивый вывод строки');
End.

Program str_2;

Uses str_2.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  s : String;
  i : integer;
Begin
  writeln('Vvedite stroku');
  readln(s);
  clrscr; {* Стираем всё с экрана *}
  For i := 1 To length(s) Do {* Увеличиваем i от 1 до length(s) с шагом 1 *}
  Begin
    write(copy(s, i, 1));
    delay(10000);
  End;
  readkey; {* Ждем нажатия пользователя *}
End.