ошибку выдаёт(

program main;
uses Opys,pidprog,crt;
var list1:list;
Begin
 
Enter(list1);
Find(list1);
readln;
end.

unit Opys;
interface
type
   student=record
   otch:string[20];
   name:string[20];
   surname:string[20];
   g_char:char;
   age:byte;
   course:byte
   end;
   list=array[1..5] of student;
implementation
end.

unit pidprog;
interface
  uses Opys,Crt;
  procedure Enter(var list1:list);
  procedure Find(list1:list);
 
implementation
 
procedure Enter(var list1:list);
var i:integer;
begin
clrscr;
for i:=1 to 5 do begin
  writeln('Enter student ',i,' info:');
  with list1[i] do begin
    write('Отчество: ');
    readln(otch);
    write('Имя: ');
    readln(name);
    write('Фамилия: ');
    readln(surname);
    write('Возраст: ');
    readln(age);
    write('Пол:(ж или м ');
    readln(g_char);
    write('Курс: ');
    readln(course);
    clrscr;
  end;
  end;
  end;
procedure Find(list1:list);
var count,tmp_count,i,j,listN:integer;
tmp_surname:string[20];
begin
count:=0;
tmp_count:=0;
with list1[1] do tmp_surname:=surname;
for i:=2 to 5 do begin
for j:=i to 5 do begin
  with list1[j] do if tmp_surname=surname then tmp_count:=tmp_count+1;
end;
if count<tmp_count then
begin
listN:=i-1;
count:=tmp_count;
end;
tmp_count:=0;
with list1[listN] do
tmp_surname:=surname;
end;
for i:=listN to 5 do begin
with list1[i] do
if surname=tmp_surname then WriteLn('Отчество ',otch,'    Пол: ',g_char);
end;
end;
 
end.