Работа с текстовыми файлами

[Reiderian]

Работа с текстовыми файлами

Здравствуйте, помогите пожалуйста с данной задачей. Заранее благодарю.

Создать текстовый файл с произвольным содержимым. Написать программу, которая заменяет каждую пустую строку файла на строку«Пустая строка», а затем дописывает к файлу строку, в которой указывается количество найденных(и замененных) пустых строк.

 

[Vladimir_S]

Здравствуйте, помогите пожалуйста с данной задачей. Заранее благодарю.

Создать текстовый файл с произвольным содержимым. Написать программу, которая заменяет каждую пустую строку файла на строку«Пустая строка», а затем дописывает к файлу строку, в которой указывается количество найденных(и замененных) пустых строк.

Да пожалуйста, хотя по-моему - детский сад. Только замените, если надо, пути к файлам, да исправьте, если хотите, английские ремарки на русские.

Var
 f1,f2:Text;
 S:String;
 N_S:Integer;

Begin
 N_S:=0;
 Assign(f1,'D:\inp.txt');
 Reset(f1);
 Assign(f2,'D:\outp.txt');
 Rewrite(f2);
 Repeat
  readln(f1,S);
  if S='' then
   begin
    writeln(f2,'Empty string');
    Inc(N_S);
   end
  else writeln(f2,S);
 Until EoF(f1);
 writeln(f2);
 writeln(f2,N_S,' times');
 Close(f1);
 Close(f2);
End.