Где здесь ошибки?

program
CourseTest;
uses CRT;
type
Student = record 
SurName:string[12];
Name:string[12];
FatherName:string[12];
Pol: char;
Vozrast: 16..35;
Course: 1..5;
end;
Poisk=record
vozrast: 16..35;
fathername:string[12];
count: integer;{количество студенток}
end;
var
IEF:array[1..10]of student; 
i: integer; 
A:array[1..10] of poisk;
begin
clrscr;
for i:=1 to 10 do
begin
writeln('Введите данные',i,' -го студента');
with IEF[i] do
begin
writeln(surname,name,fathername,pol,vozrast,course);
if pol='ж' then
begin
for i:=1 to 10 do 
with A[i] do 
begin
count:=count+1;
writeln(surname);
readln;
end;
end;
end;
end.

type
Student = record
SurName:string[12];
Name:string[12];
FatherName:string[12];
Pol: char;
Vozrast: 16..35;
Course: 1..5;
end;
type Tarray = array[1..10]of student;
 
var mas:Tarray;
    i,count:integer;
    fname:string;
function FindMatchFName(var aMas:Tarray;index:integer):integer;
 var
  i,count:integer;
begin
 count:=0;
 for i:=1 to 10 do
 if mas[i].FatherName=mas[index].FatherName then inc(count);
 FindMatchFName:=count;
end;
 
begin
  mas[1].SurName:='Иванова';
  mas[1].name:='Мария';
  mas[1].FatherName:='Владимировна';
  mas[2].SurName:='Петрова';
  mas[2].name:='Евгения';
  mas[2].FatherName:='Владимировна';
  mas[3].SurName:='Сидорова';
  mas[3].name:='Анастасия';
  mas[3].FatherName:='Петровна';
  
count:=0;
 for i:=1 to 3 do
 if FindMatchFName(mas,i)>count
 then
 begin
 count:=FindMatchFName(mas,i);
 fname:=mas[i].FatherName;
 end;
 writeln(fname);
 
end.

{
Имеется следующая информация о каждом из n студентов: фамилия, имя, отчество,
пол, возраст, курс. Написать программу, которая выводит эту информацию и
печатает фамилию и инициалы студенток, возраст и отчества которых являются
одновременно самыми распространенными.
}
type
  TStudent = record
    LName, FName, MName: string[29];
    Sex: Char;
    Age: integer;
    Year: integer;
  end;
  TRef = record
    ref, count: integer;
  end;
const
  n=3;
  d: array [1..n] of TStudent = (
(LName:'Иванова'; FName:'Мария'; MName:'Владимировна'; Sex:'F'; Age:20; Year:2),
(LName:'Петрова'; FName:'Мария'; MName:'Ивановна';     Sex:'F'; Age:20; Year:2),
(LName:'Иванова'; FName:'Ольга'; MName:'Ивановна';     Sex:'F'; Age:19; Year:1));
var
  rMN, rAge: array [1..n] of TRef;
  cMN, cAge, pMN, pAge, i, j: integer;
begin
  { считаем популярность отчеств и возрастов }
  cMN:=0; cAge:=0; pMN:=1; pAge:=1;
  for i:=1 to n do with d[i] do if Sex='F' then begin
    { считаем популярность отчества }
    j:=1; while (j<=cMN) and (MName<>d[rMN[j].ref].MName) do inc(j);
    if j>cMN then begin
      inc(cMN); rMN[j].ref:=i;
    end;
    inc(rMN[j].count);
    { считаем популярность возраста }
    j:=1; while (j<=cAge) and (Age<>d[rAge[j].ref].Age) do inc(j);
    if j>cAge then begin
      inc(cAge); rAge[j].ref:=i;
    end;
    inc(rAge[j].count);
  end;
  for j:= 2 to cMN do begin
    if rMN[j].count > rMN[pMN].count then pMN:=j;
    if rAge[j].count > rAge[pAge].count then pAge:=j;
  end;
  WriteLn('Общий список:');
  for i:=1 to n do with d[i] do
    WriteLn(i:2,' ',LName,' ',FName,' ',MName, ' ',Sex,' ',Age,' лет курс ',Year);
  WriteLn('Самые популярные отчество: ',d[rMN[pMN].ref].MName,
    ', возраст: ',d[rAge[pAge].ref].Age,'.');
  { выводим записи, где и отчество, и возраст равны самым популярным }
  for i:=1 to n do with d[i] do
    if (MName=d[rMN[pMN].ref].MName) and (Age=d[rAge[pAge].ref].Age) then
      WriteLn(Lname,' ',Copy(FName,1,1),'.',Copy(MName,1,1),'.');
end.