Выдать на экран фамилию ученика, который обучается на указанном инструменте наибольшее количество лет

uses crt;
type STUD=record
fam, instr:string[15];
kollet:real;
end;   
anketa=file of STUD;
var 
k,i,n,kol,b:integer;
    f1:biblio;
    max:real;
    a:kniga;  
    av:string[15];
begin
assign(f1, 'biblio.dat');
     b:=0;
     while b=0 do
     begin      
    clrscr;
writeln('1 - создание файла');
writeln('2 - просмотр файла');
writeln('3 - добавление в файл');
writeln('4 - обработка файла');
writeln ('5 - выход');
write('Сделайте выбор: '); readln (k);   
case k of 
  1:
         begin
clrscr;
write('Введите количество учеников: ');
readln(n);
rewrite(f1);          
              for i:=1 to n do
              with a do
              begin
                   writeln(i,'-й ученик ');
                   write('-фамилия: '); readln(fam);
                   write('-инструмент: '); readln(instr);
                   write('-количество лет обучения: '); readln(kollet);                  
                   write(f1,a);
              end;          
close(f1);        
writeln('Файл успешно создан');
readln;
 end;
        2:
        begin
clrscr;          
reset(f1);       
 readln;
 end;
 close(f1);
3:
clrscr;
write('Введите количество учеников: ');
readln(n);         
 reset(f1);
seek(f1,filesize(f1));         
for i:=1 to n do
  with a do
begin
writeln(i,'-й ученик ');
write('-фамилия: '); readln(fam);
write('-инструмент: '); readln(instr);
write('-количество лет обучения: '); readln(kollet);                  
write(f1,a);
  end;
close(f1);
writeln ('Ученики успешно добавлены');
readln;
end;
 
4:
begin
reset(f1);
max:=0;
for i:=1 to filesize(f1) do
begin
{считаем очередную книгу из файла}               
read(f1,a);
{проверяем ее на максимум}              
if a.kollet>max then
{запоминаем максимальную цену}                               
max:=a.kollet;
end;
{выводим найденную максимальную цену}
writeln('Ученик с максимальным количеством лет обучения= ',max:5:2);          
close(f1);
{в начале количество равно 0}          
{организуем цикл для чтения из файла}          
for i:=1 to filesize(f1) do
begin
{считываем очередную книгу}               
read(f1,a);
{если автор книги равен введенному значению}              
if a.avtor=av then
{увеличиваем количество книг на 1}                             
kol:=kol+1;
end;
{выводим количество найденных книг}         
writeln('Кол книг= ',kol);
{закрываем файл}         
close(f1);
readln;
end;
{если выбран 5 пункт (выход)
переменная b не равна 0, значит цикл выдачи меню завершается}
5: 
b:=1;
end;
end;
 
end.