Сформировать типизированный файл и выбрать из него элементы по заданному критерию - Pascal

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

Заданные поля записи, определить их типы данных, написать программу для ввода произвольного количества записей, записать их в типизированный файл, закрыть его, открыть и выбрать из него записи согласно заданному критерию, вывести их на экран в форме, удобной для просмотра. Человек: фамилия, пол, цвет волос, глаз. Критерий: особь женского пола с коричневыми волосами и глазами.

Решение задачи: «Сформировать типизированный файл и выбрать из него элементы по заданному критерию»

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

WriteLn('Люди попадающие под критерии:');
while not EoF(f) do with s do begin
  Read(f,s);
  if (vol=1) and (och=1) then
    WriteLn(pr,' ',st, ' ', vol,' ',och);
end;

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

Выводится сообщение Люди попадающие под критерии:
Пока не достигнут конец файла (EoF(f) = False), выполняется следующий блок кода:
1. Считывается значение из файла f и записывается в переменную s
2. Если значения vol и och в переменной s равны 1, то выполняется следующее:
  1. Выводится строка, содержащая значения переменных pr, st, vol и och через пробел, разделенные пробелом, после которых идет символ переноса строки (WriteLn)