Что не так? при выборе 4 пункта меню, выдает ошибку

Program n1;
USes crt;
Type kniga=record
fam, instr:string[15];
year, price:real;
end;
biblio=file of kniga;
var
k,i,n,kol,b,nom:integer;
fl:biblio;
let:real;
a:kniga;
ins,fim,famil:string[15];
begin
textbackground(2);
textcolor(1);
clrscr;
assign(fl,'biblio.dat');
b:=0;
while b=0 do
begin
clrscr;
 
                 gotoxy(24,5);
                 writeln('1 – создание файла ');
                 gotoxy(24,6);
                 writeln('2 – добавление в файл');
                 gotoxy(24,7);
                 writeln('3 – просмотр файла ');
                 gotoxy(24,8);
                 writeln('4 - обработка ');
                 gotoxy(24,9);
                 writeln('5 - Выход');
                 gotoxy(24,10);
                 write ('Сделайте выбор:  ');
                 readln(k);
                 case k of
                 1:
                 begin
                 clrscr;
                 write('Введите кол-во студентов: ');
                 readln(n);
                 rewrite(fl);
                 for i:=1 to n do
                 with a do
                 begin
                 writeln(i,'-м студенте');
                 write('- фамилия:  ');readln(fam);
                 write('-инструмент:  '); readln(instr);
                 write('-лет обучения:  ');readln(year);
                 write(fl,a)
                 end;
                 close(fl);
                 writeln('Файл успешно создан');
                 readln;
                 end;
 
 
                 2:
                 begin
                 clrscr;
                 write('Введите кол-во:  ');
                 readln(n);
                 
                 reset(fl);
                 seek (fl,filesize(fl));
                 for i:=1 to n do
                 with a do
                 begin
                 writeln(i, '- м студенте');
                 write('- фамилия:');readln(fam);
                 write('- инструмент:  ');readln(instr);
                 write('- лет обучения:  ');readln(year);
                 write(fl,a);
                 end;
                 close(fl);
                 writeln('Студенты успешно добавлены');
                 readln;
                 end;
                 3:
                 begin
                 reset(fl);
    writeln('            Фамилия        Инструмент         Лет обучения         ');
                 for i:=1 to filesize (fl) do
                 begin
                 read(fl,a);
                 writeln (a.fam:16,a.instr:16,a.year:16:0);
                 end;
                 close(fl);
                 readln;
                 end;
                 4:
                 begin
                 reset(fl);
                 let:=0;
                 write('Введите инструмент:  ');
                 readln(ins);
                 for i:=1 to filesize(fl) do
                 begin
                 read(fl,a);
                 if copy(a.instr,1,length(ins))=ins then
                 if let<a.year then
                 begin
                 let:=a.year;
                 famil:=a.fam;
                 end;
                 end;
                 writeln('          Фамилия         Инструмент           Лет обучения        ');
                 writeln(famil:16,ins:16);
                 readln;
                 end;
                 5: b:=1
                 end;
                 end;
                 end.

for i:=0 to filesize(fl)-1 do

for i:=0 to filesize(fl)-1 do

if copy(a.instr,1,length(ins))=ins then
                 if let<a.year then
                 begin
                 let:=a.year;
                 famil:=a.fam;
                 end;