Помогите пожалуйста решить задачу Паскаль

[kickmaster]

Помогите пожалуйста решить задачу Паскаль

Спасайте:tehnari_ru_837:
Задание: Текстовые файлы
Дана строка S и текстовый файл. Заменить в файле все пустые строки на строку S.
Спасибо огромное.

 

[Vladimir_S]

Спасайте:tehnari_ru_837:
Задание: Текстовые файлы
Дана строка S и текстовый файл. Заменить в файле все пустые строки на строку S.
Спасибо огромное.

Спасаю!
Пояснения:
1. Имена и адреса файлов можете поставить свои.
2. Входной файл (у меня Txt_1.txt) должен быть подготовлен заранее.

Var
 S,Sf:String;
 F1,F2:Text;
Begin
 Writeln('Enter the string:');
 Readln(S);
 Assign(F1,'D:\Txt_1.txt');
 ReSet(F1);
 Assign(F2,'D:\Txt_2.txt');
 ReWrite(F2);
 Repeat
  Readln(F1,Sf);
  If Sf<>'' then
   Writeln(F2,Sf)
  else
   Writeln(f2,S);
 Until EoF(F1);
 Close(F1);
 Close(F2);
End.

 

[kickmaster]

спасибо огромное!tehno035