Вывод текста с задержкой (Pascal)

[_fynjy_]

Как сделать так чтобы паскаль выводил текст с задержкой в одну букву, то есть в телеграфном стиле (как будто с клавы набирают текст)?

[GetMax]

Как сделать так чтобы паскаль выводил текст с задержкой

Примерно так

Var
  St:String;
  I:Byte;
  ch:Char;
begin
  Readln(St);
  For i:=1 to Length(St) do
  Begin
    Ch:=St[i];
    Delay(200);
    Write(ch)
  End;
  Readln
End.

[_fynjy_]

пишет неизвестный индифекатор delay(

[Serge_Bliznykov]

надо подключить модуль CRT
в начале программы
напишите

uses CRT;

[_fynjy_]

program _4_1;
uses crt;
var
  stroka: string;
  i:byte;
begin
  ClrScr;
  TextColor(14);
  Writeln('В телеграфном стиле!');
  writeln('Введите текст и нажмите <Enter>');
  write(' -> ');
  readln(stroka);
  i:=0;
  while length(stroka)<>i do
  begin
    i:=i+1;
    textcolor(11);
    write(stroka[i]);
    delay(1000);
  end;
  textcolor(14);
  writeln;
  writeln('Для завершения работы нажмите любую клавишу.');
  Repeat
  Until KeyPressed;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[_fynjy_]

спасибо, понял