Не могу разобраться почему не работает прога. Слетает после вывода на экран 'Список искомых книг'

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  book=record
  surname:string[20];
  name:string[40];
  izd:string[20];
  year:string[5];
  quantity:string[5];
  end;
  ttf= file of book;
  tbmas=array of book;
  str=string[20];
var Fb:ttf;
    n,k:integer;
    mb:tbmas;
 
 
 
 
procedure Input(var Fbx:ttf; nx:integer);
var x:book;
    i:integer;
begin
 
  writeln('Введите информацию о книгах');
  for i := 1 to nx do
    begin
     writeln('Введите фамилию автора');
     readln(x.surname);
     writeln('Введите название книги');
     readln(x.name);
     writeln('Введите издательство');
     readln(x.izd);
     writeln('Введите год издания');
     readln(x.year);
     writeln('Введите кол-во страниц');
     readln(x.quantity);
     writeln;
     write(Fbx,x);
    end;
end;
 
 
procedure Output(var Fbx:ttf);
var x:book;
 begin
 writeln('Список книг:');
 writeln;
 writeln(' ':9,'Автор',' ':28,'Название книги',' ':20,'Издательство',' ':6,'Год издания',' ','Кол-во страниц');
 while not eof(Fbx) do
  begin
    read(Fbx,x);
   with x do
 begin
  write(surname:20,' ':3);
  write(name:40,' ':3);
  write(izd:20,' ':7);
  write(' ':3,year:5,' ':8);
  write(quantity:5,' ':3);
  writeln;
 end;
  end;
 writeln;
 end;
 
Procedure Search(var Fbx:ttf;var mbx:tbmas;out kx:integer);
var x,buf:book;
    i,c,j:integer;
    avtor:str;
 begin
 kx:=0;
 c:=0;
 writeln('Введите фамилию искомого автора');
  readln(avtor);
 
   while not eof(Fbx) do
     begin
        read(Fbx,x);
      if x.surname=avtor then
       kx:=kx+1;
     end;
    if kx=0 then
    writeln('Нет книг искомого автора')//Проверено
    else
    begin
    readln;
    writeln('Список искомых книг');
    Reset(Fbx);
    while not eof(Fbx) do
     begin
        read(Fbx,x);
      if x.surname=avtor then
       begin
        c:=c+1;
        mbx[c]:=x;
        writeln(x.surname:20,x.name:40,x.izd:20,x.year:5,x.quantity:5);
       end;
     end;
    end;
 
    for j :=1  to c-1 do    // Сортировка
    for i := 1 to c-j do
      if mbx[i].quantity>mbx[i+1].quantity then
    begin
     buf:=mbx[i];
     mbx[i]:=mbx[i+1];
     mbx[i+1]:=buf;
    end;
 
    writeln('Отсортированный список книг:');
    readln;
    for i := 1 to c do
     with mbx[i] do
 begin
  write(surname:20,' ':3);
  write(name:40,' ':3);
  write(izd:20,' ':7);
  write(' ':3,year:5,' ':8);
  write(quantity:5,' ':3);
  writeln;
 end;
 readln; 
 
 
    writeln('Книга с наименьшим кол-вом страниц:');
    readln;
 
  write(mbx[1].surname:20,' ':3);
  write(mbx[1].name:40,' ':3);
  write(mbx[1].izd:20,' ':7);
  write(' ':3,mbx[1].year:5,' ':8);
  write(mbx[1].quantity:5,' ':3);
  writeln;
end;
 
begin
  writeln('Введите кол-во книг');
  readln(n);
  writeln;
  AssignFile(Fb,'TypedFile.txt');
  Rewrite(Fb);
  Input(Fb,n);
  Reset(Fb);
  Output(Fb);
  Reset(Fb);
  Search(Fb,mb,k);
  Reset(Fb);
  Truncate(Fb);
  closefile(Fb);
  readln;
 
end.

 begin
    readln;
    writeln('Список искомых книг');
    Reset(Fbx);
    while not eof(Fbx) do
     begin
        read(Fbx,x);
      if x.surname=avtor then
       begin
        c:=c+1;
        mbx[c]:=x;
        writeln(x.surname:20,x.name:40,x.izd:20,x.year:5,x.quantity:5);
       end;
     end;
    end;