Организовать хранение в файле нескольких записей (не менее 3)

program EvgeniiSp;
uses Crt;
type
 database = record
             wage, rec: integer;
             last_name, name, patronymic, club, membership: string;
            end;
var
 db: database;
 f: file of database;
//---------------------
 procedure AnalysisData; forward;
 procedure InputData;
  var
   i,n,x: integer;
  begin
   writeln('-îòêðûòü ôàéë äëÿ äîáàâëåíèÿ èíôîðìàöèè(1);');
   writeln('-îòêðûòü ôàéë äëÿ ïîèñêà èíôîðìàöèè(2);');
   write('-ñîçäàòü íîâûé ôàéë(3): ');
   readln(x);
   Assign(f,'db.dat');
   if (x <= 2)
    then
     if x = 1
      then Reset(f)
      else begin AnalysisData; Halt; end
    else Rewrite(f);
   write('Ââåäèòå êîëè÷åñòâî äîáàâëÿåìûõ çàïèñåé: ');
   readln(n);
   writeln('Ââåäèòå:');
   for i:=1 to n do
    begin
     writeln('çàïèñü #',i,' èç ',n);
     with db do
      begin
       db.rec:=i;
       write('-ôàìèëèÿ: ');
       readln(last_name);
       write('-èìÿ: ');
       readln(name);
       write('-îò÷åñòâî: ');
       readln(patronymic);
       write('-íàçâàíèå êëóáà: ');
       readln(club);
       write('-ñîñòàâ(îñíîâíîé/çàïàñíîé): ');
       readln(membership);
       write('-çàðïëàòà: ');
       readln(wage);
      end;
     write(f,db);
    end;
   Close(f);
  end;
//---------------------
 procedure AnalysisData;
  var
   x: integer;
  begin
   Reset(f);
   Seek(f,0);
   writeln('Ïîèñê ïî íîìåðó çàïèñè.');
   write('Ââåäèòå íîìåð çàïèñè: ');
   readln(x);
   while not Eof(f) do
    begin
     read(f,db);
     if db.rec = x
      then
       begin
        writeln('ôàìèëèÿ: ',db.last_name);
        writeln('èìÿ: ',db.name);
        writeln('îò÷åñòâî: ',db.patronymic);
        writeln('íàçâàíèå êëóáà: ',db.club);
        writeln('ñîñòàâ(îñíîâíîé/çàïàñíîé): ',db.membership);
        writeln('çàðïëàòà: ',db.wage);
        Close(f);
        Halt;
       end
      else writeln('Äàííàÿ çàïèñü íå íàéäåíà.');
   end;
   Close(f);
  end;
 
begin
 ClrScr;
 InputData;
 AnalysisData;
end.