Вывод строки побуквенно - Free Pascal

Формулировка задачи:

Бодрого дня, господа. Ни как не могу найти на форуме решение (может просто плохо искал?) своей задачки. Есть файлик текстовый. В нем куча строк. Допустим

. Нет,

маловато, лучше

. Мы из него считываем информацию. И выводим на экран построчно. Все ясно и понятно. Но... Нужно выводить эти самые строчки побуквенно. Т. е., чтобы знаки дописывались и так до конца строки. Затем следующая строка. Например: Сначала

Листинг программы

Х

Затем

Листинг программы

   Хо

Потом

Листинг программы

   Хоч

После

                    Листинг программы
                
   Хочу   Хочу   Хочу с   Хочу ст   Хочу стр   Хочу стра   Хочу стран   Хочу странно   Хочу странног   Хочу странного

и т. д. Подскажите где и куда копать

Решение задачи: «Вывод строки побуквенно»

textual
                            Листинг программы 
                        
 
                        
                          
                    
uses crt;
var
  s: String;
  i: Integer;
  f: Text;
begin
  Assign(f,'info.txt'); Reset(f);
  while not EOF(f) do begin
    ReadLn(f,s);
    for i:=1 to Length(s) do begin
      Write(s[i]); Delay(30);
    end; WriteLn;
  end;
  Close(f);
end.