Прошу помощи в решении задачи с текстовыми файлами.

[student2008]

Дана строка S и текстовый файл. Заменить в файле все пустые строки на строку S.

[VadEr]

Попробуй, например, так:

const f_name='Test.txt'; {имя файла с текстом}
var
   S,str:string;
   f1,f2:Text;
begin
   writeln('Vvedite stroky!');
   readln(S);
   Assign(f1, f_name);
   Assign(f2, 'Result.txt');
   Reset(f1);
   Rewrite(f2);
   while not EOF(f1) do
     begin
        readln(f1, str);
        if str = '' then writeln(f2, S)
        else writeln(f2, str);
     end;
   Close(f1);
   Close(f2);
end.