Скорость вывода текста в pascal

Question

Нужно выдавать пользователю много текста. Можно ли сделать отрезки времени в секундах между очередным writeln? Где-то слышал, что можно выводить текст так, как будто он печатается прямо сейчас, а не сплошником в один миг, такое возможно?

Answer 1

Вот как-будто печатается прямо сейчас:

var
  s: string;

begin
  read(s);
  for var i := 1 to length(s) do
  begin
    write(s[i]);
    sleep(50);
  end;
end.