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

Цитата:

Сообщение от kickmaster (Сообщение 914848)

Спасайте: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.