Текст

[[Smarik]]

Нужен еффект текста печати на клавиатуре, чтобы текст выводился по 1 букве. Что то типа delay(400) сделать только как етот процесс автоматизировать?

[madmot]

ты сам и ответил на свой вопрос, только Delay - в милисек.

uses crt;
var  i:byte;
   str:string;
begin
  str:='мама мыла раму';
  clrscr;
  for i:=1 to length(str) do
  begin
    write(str[i]);
    delay(60000);
  end;
  readkey;
end.

[[Smarik]]

так дело в том что программа практически вся будет состоять из текста, тоесть там примерно 100-150кб текста, такой метод не оч удобный...придется описать сотни переменных для етого.

[Stilet]

придется описать сотни переменных для етого

Это еще зачем???
Просто сделай массив строк в них загони текст и в циклах пусть он печатается

[[Smarik]]

ну массив...
massiv[str1]:= что то там
massiv[str2]:= что то там
...
massiv[strn]:= что то там
опять все переменный str описывать

[B_N]

var str : array[0..XXX] of string;

str[0] := 'что то там 0';
str[1] := 'что то там 1';
.........
str[N-1] := 'что то там N-1';
.........

[puporev]

Можно исходный текст загнать в текстовый файл, оттуда построчно считывать в массив.