Вывести отдельно студенток и студентов, занимающихся конкретным видом спорта - Pascal

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

Составить программу, которая вводит данные о студентах: № п/п, фамилию, год рождения, пол, курс, вид спорта и выводит: отдельно студенток и студентов, занимающихся конкретным видом спорта.

Решение задачи: «Вывести отдельно студенток и студентов, занимающихся конкретным видом спорта»

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

{№ п/п, фамилию, год рождения, пол, курс, вид спорта }
const
  n = 10;
 
type
  student = record
    nomer: integer;
    fio: string[224];
    god_r: 1900..2050;
    pol: string[6];
    kurs: byte;
    sport: string[6];
  end;
 
var
  students: array [1..n] of student;
  i: integer;
  sp: string[224];
 
begin
  for i := 1 to n do
    with students[i] do
    begin
      write('Введите ФИО: ');readln(fio);
      write('Введите год рождения: ');readln(god_r);
      write('Введите пол: ');readln(pol);
      write('Введите курс: ');readln(kurs);
      write('Введите вид спорта: ');readln(sport);
    end;
  writeln;    
  write('Укажите требуемый вид спорта: ');
  readln(sp);
  writeln('Студентки: ');
  for i := 1 to n do
    with students[i] do
      if pol = 'female' then
        writeln(fio);
  write('Студенты. ');  
  writeln('Вид спорта: ', sp);    
  for i := 1 to n do
    with students[i] do
      if (pol = 'male') and (sport = sp) then
        writeln(fio);
end.

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

Объявляется константа n и устанавливается равной 10.
Описывается тип student, содержащий поля: nomer (номер), fio (ФИО), god_r (год рождения), pol (пол), kurs (курс), sport (вид спорта).
Создается массив students размером n (10) элементов типа student.
Объявляется переменная i типа integer.
Объявляется переменная sp типа string, предположительно используется для ввода требуемого вида спорта.
Вводятся данные о студентах: ФИО, год рождения, пол, курс, вид спорта.
Выводится запрос на указание требуемого вида спорта.
Выводятся студентки, чьи записи соответствуют полю female в структуре students.
Выводятся студенты, чьи записи соответствуют требуемому виду спорта.
Программа завершается. Примечание: В коде используется язык программирования Pascal, который имеет специфический синтаксис и структуру.