Найти средний возраст студентов, подсчитать количество студенток

{Сформировать массив содержащий описание всех студентов некоторой учебной
группы, n=25. Найти средний возраст студентов, подсчитать количество
студенток, мужскому полу соответствует- male, женскому- female.
О студенте должно быть известно: ФИО, пол, возраст, рост, 4 экзамена
зимней сессии.}
const
  n=2;
type
  student=record
    fio:string[224];
    pol:string[6];
    vozr,rost:word;
    ex1,ex2,ex3,ex4:byte;
  end;
var
  students:array [1..n] of student;
  i:integer;
  sr:real;
  k:integer;
begin
  k:=0;
  sr:=0;
  for i:=1 to n do
    with students[i] do
      begin
        write('Введите ФИО: ');  readln(fio);
        write('Введите пол: ');  readln(pol);
        write('Введите возраст: ');  readln(vozr);
        write('Введите рост: ');  readln(rost);
        write('Введите оценку за 1-й экзамен: ');  readln(ex1);
        write('Введите оценку за 2-й экзамен: ');  readln(ex2);
        write('Введите оценку за 3-й экзамен: ');  readln(ex3);
        write('Введите оценку за 4-й экзамен: ');  readln(ex4);
        if pol='female' then
          inc(k);
        sr:=sr+vozr;
      end;
  sr:=sr/n;
  writeln('Количество особей женского пола: ',k);
  writeln('Средний возраст: ',sr:0:2);
end.