Текстовый файл.

[Катакомба]

Требуется создать массив,содержащий сведения о книгах(автор,название,год издания) и выбрать из массива записи о книгах заданного автора.
Вот что у меня получилось написать,только что-то не работает.Подскажите,что надо исправить?

const nmax=30;
  type kn=record
    avtor:string[20];
    name:string[20];
    god:word;
  end;
    var f:file of kn;
    fb:kn;
    i,n:integer;
    avf:string;
    key:boolean;
begin
  assign(f,'avtory.txt');
  rewrite(f);
  writeln('vvod dannyx');
  while not eof  do
   begin
     write('avtor   ');
     read(fb.avtor);
     write('name   ');
     read(fb.name);
     write('god   ');
     read(fb.god);
     write(f,fb);
   end;
   close(f);
   
   writeln('vvedite avtora');
   readln(avf);
   key:=false;
   reset(f);
   while(not eof(f)) and (not key) do
   begin
     read(f,fb);
     if fb.avtor=avf then
       begin
         writeln('knigy: ',fb.name:3,fb.god:3);
         key:=true;
       end;
   end;
   if not key then
   writeln('net dannyx');
   close(f);
end.

[zhan313]

rewrite(f);
writeln('vvod dannyx');
while not eof do

скорее всего не работет по причине пустого файла, да и файловая переменная не задана для eof.

while(not eof(f)) and (not key) do

сработает только на одно нахождение, а если книг несколько ?