{* Выявление в списке студентов двоечников. *}

Unit PRGA13;
Interface
Implementation
Begin
 writeln('Работа с типизированными файлами. Выявление в списке студентов двоечников.');
End.

Program prga13;

Uses prga13.pas; {* Эту строку можно удалить *}
Type {* Создание новых типов данных *}
  stud = Record        FIO : String[50];
  nzach : integer;
  End;
Var {* В работе нам потребуются переменные: *}
  f     : text;
  g     : File Of stud;
  s     : stud;
  exam1 : integer;
  exam2 : integer;
  exam3 : integer;
  exam4 : integer;
  Begin
  assign(f, 'input.txt'); {* Связывание f с файлом 'input.txt' *}
  reset(f); {* Чтение из файла через переменную f *}
  assign(g, 'output.dat'); {* Подключение к файлу 'output.dat' через переменную g *}
  rewrite(g); {* Запись в файл через переменную g *}
While Not eof(f) Do {* Проверяем, не достигнут ли конец файла *}
Begin
  read(f, s.FIO);
  readln(f, s.nzach, exam1, exam2, exam3, exam4);
  If (exam1 = 2) Or(exam2 = 2)Or(exam3 = 2)Or(exam4 = 2) Then
    write(g, s);
End;
close(f); {* Закрытие файла *}
close(g); {* Закрытие файла *}
reset(g); {* Открытие файла для чтения *}
writeln('vihodnoi fail');
While Not eof(g) Do {* Пока не конец файла *}
Begin
  read(g, s);
  writeln(s.FIO, s.nzach);
End;
close(g); {* Закрыть файл g *}
End......