Текстовый файл Опции

[RAPON]

Дан текстовый файл. Абзацы выделяются в нем с помощью красной строки (5 пробелов в начале строки), а пустых строк нет. Вставить между соседними абзацами по одной пустой строке (в начало и конец файла пустые строки не добавлять).
Подскажите пожалуйста,как это сделать.

[Lapp]

Попробуй как-то вот так:

ReadLn(f,s);
WriteLn(g,s);
while not EoF(f) do begin
  ReadLn(f,s); 
  if Copy(s,1,5)='     ' then WriteLn(g);
  WriteLn(g,s)
end;