{* Чтение, фильтр и запись символов *}

Unit FILVIB;
Interface
Implementation
Begin
 writeln('Фильтрует ненужные, оставшиеся записывает в другой файл. ');
End.

Program pas150305;

Uses filvib.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  f1   : Text; {Исходный файл "1.txt"}
  f2   : Text; {Итоговый файл "2.txt"}
  vs   : Char; {Вышибаемый символ}
  simv : Char; {Читаемый из файла символ}
Begin
  assign(f1, '1.txt'); {$I-}
  {Отключаем контроль ошибок ввода-вывода}
  reset(f1); {$I+}
  {Включаем контроль ошибок ввода-вывода}
  If IOResult  0 Then
    Exit  {Файл не существует}
  Else {Файл существует}
    assign(f2, '2.txt'); {* Связывание f2 с файлом '2.txt' *}
  ReWrite(f2); {Создаём файл}
  vs := 'e'; {Удаляем этот символ}
  While Not EOF(F1) Do {* Пока не конец файла *}
  Begin
    Read(f1, simv);
    If simvvs Then
      write(f2, simv);
  End;
  close(f2); {* Файл f2 будет закрыт *}
  close(f1) {* Закрытие файла *}
End.