Поиск данных в файле по указанному критерию - Pascal

Формулировка задачи:

Создать текстовые файл при помощи редактора, внести в него расположенную ниже информацию. Составить программу, использующую тип данных text, для вывода содержимого файла на экран и поиска данных в файле по указанному критерию. Имеется информация об итогах зимней сессии в гр ИД-02. Написать программу которая берет эту информацию из файла и печатает успевающих студентов мужского пола.

Решение задачи: «Поиск данных в файле по указанному критерию»

Листинг программы

assign(f,'data.txt');
reset(f);
while not eof(f) do
 begin
  readln(f,fio);
  readln(f,pol);
  readln(f,ocenka1);
  readln(f,ocenka2);
  readln(f,ocenka3);
  if (ocenka1>2) and (ocenka2>2) and (ocenka3>2) and (pol='М') then
   writeln(fio);
 end;
close(f);

Объяснение кода листинга программы

Название переменной: f
- Значение: Имя файла data.txt
Открытие файла для чтения:
- Команда: assign(f,'data.txt');
Чтение данных из файла:
- Команда: reset(f);
Цикл чтения до конца файла:
- Команда: while not eof(f) do
Чтение строки с ФИО:
- Переменная: fio
Чтение строки с полом:
- Переменная: pol
Чтение строки с первой оценкой:
- Переменная: ocenka1
Чтение строки со второй оценкой:
- Переменная: ocenka2
Чтение строки с третьей оценкой:
- Переменная: ocenka3
Проверка условия и вывод ФИО:
- Условие: (ocenka1>2) and (ocenka2>2) and (ocenka3>2) and (pol='М')
- Вывод: writeln(fio)
Закрытие файла:
- Команда: close(f);