[Serejka]

Код:

var
  fIn, fOut: TextFile;
  sTemp: String;

begin
  ...
  AssignFile (fIn, ИСХОДНАЯ_СТРАНИЧКА);
  Reset (fIn);
  AssignFile (fOut, ИТОГОВАЯ_СТРАНИЧКА);
  Rewrite (fIn);
  while not EOF (fIn) do
  begin
    Readln (fIn, sTemp);
    if (ТУТ_УСЛОВИЕ_ТОГО_МЕСТА_КУДА_НАДО_ЧТО-ТО_ВСТАВИТЬ_СВОЁ) then Writeln (fOut, 'ТО_ЧТО_НАДО_ВСТАВИТЬ')
    else Writeln (fOut, sTemp);
  end;
  CloseFile (fIn);
  CloseFile (fOut);
  ...
end;

Admin: Пользуемся тегами!