Форум программистов [Powered by Invision Power Board]

Код

program TxtCopy;
procedure CopyTxtFile(strFileNameIn,strFileNameOut:string);
const
  txt='copy';{вставляемая строка}
var
  strPred,strNow:string;{strPred-предыдущая строка, strNow-настоящая}
  fin,fout:text;
begin
  Assign(fin,strFileNameIn);
  Assign(fout,strFileNameOut);
  reset(fin);{для чтения}
  rewrite(fout);{для перезаписи}
  if not eof(fin) then{если не конец файла}
  begin
    readln(fin,strNow);{читаем первую строку}
    writeln(fout,strNow);{печатаем первую строку}
    while not eof(fin) do{пока не конец файла}
    begin
      strPred:=strNow;{запоминаем предыдущее слово}
      readln(fin,strNow);{читаем настоящее}
      if strPred=strNow then writeln(fout,txt);{если они равны то печатаем вставляемую строку}
      writeln(fout,strNow);{печатаем считанную строку}
    end;
  end;
  Close(fout);{закрытие файла}
  Close(fin);{закрытие файла}
end;
var
  strFileNameIn,strFileNameOut:string;
begin
  writeln('First file name:');
  readln(strFileNameIn);{ввод имени файла источника}
  writeln('Second file name:');
  readln(strFileNameOut);{ввод имени файла приемника}
  CopyTxtFile(strFileNameIn,strFileNameOut);
  writeln('ok');
  writeln('Please press any key...');
  readln;
end.