Проверьте программу

uses crt;
 
type
    student = record
        fio: string;
        pol: string;
        god: integer;
        step: real;
        address: string;
    end;
var
   a:array[1..100] of student;
   i,n: integer;
   max,min: real;
   o,l: string;
   c: byte;
   f: file of student;
 
   {ALL STUDENTS}
procedure proc1;
begin
clrscr;
reset(f);
read(f,a[i]);
for i:= 1 to n do
begin
     writeln('Application form: ', i);
     writeln('FIO: ',a[i].fio);
    writeln('Sex: ',a[i].pol);
    writeln('Birth year: ',a[i].god);
    writeln('Grant: ',a[i].step);
    writeln('Address: ',a[i].address);
     writeln;
end;
close(f);
end;
 
{MALE STUDENTS}
procedure proc2;
begin
clrscr;
reset(f);
read(f,a[i]);
writeln('Male or female?');
readln(o);
if a[i].pol=o then
    begin
    if a[i].pol = 'female' then a[i].pol:=char(12);
    if a[i].pol = 'male' then a[i].pol:=char(11);
    writeln('FIO: ',a[i].fio);
    writeln('Sex: ',a[i].pol);
    writeln('Birth year: ',a[i].god);
    writeln('Grant: ',a[i].step);
    writeln('Address: ',a[i].address);
    writeln;
    end;
close(f);
end;
 
{fio, h&l grant}
procedure proc3;
begin
clrscr;
reset(f);
read(f,a[i]);
max:=0;
For i:=1 to n do
begin
if a[i].step>max then
max:=a[i].step;
end;//max
min:=0;
For i:=1 to n do
begin
if a[i].step<min then
min:=a[i].step;
end;//min
if (a[i].step=max) or (a[i].step=min) then
begin
    writeln('FIO: ',a[i].fio);
    writeln('Address: ',a[i].address);
    writeln('This student has got max/min grant');
    writeln;
end
else
writeln('Students have not got grant');
close(f);
end;
 
{MAIN PROGRAMM}
begin
clrscr;
Assign(f, 'lab5.txt');
rewrite(f);
writeln('Enter number of students');
readln(n);
clrscr;
for i:=1 to n do
begin
     writeln('Enter FIO of the student');
     readln(a[i].fio);
     writeln('Enter sex of the student (male/female)');
     readln(a[i].pol);
     writeln('Enter birth year of the student');
     readln(a[i].god);
     writeln('Enter grant of the student');
     readln(a[i].step);
     writeln('Enter address of the student');
     readln(a[i].address);
     write(f,a[i]);
     clrscr;
end;
close(f);
reset(f);
 
{MENU}
begin
repeat
writeln('***MENU***');
      writeln('1)All students');
      writeln('2)Male/female students');
      writeln('3)FIO and address of students with highest and lowest grant');
      writeln('0)To exit');
      writeln;
      writeln('Select programm:');
      readln(c);
      case c of
      1: proc1;
      2: proc2;
      3: proc3;
      0: exit;
      end;
      writeln('To return press ENTER');
      readln;
      clrscr;
until c=0;
end;
end.