Я создаю базу данных, у меня не получается осуществить поиск нужной записи

Program baza_dan;
uses crt, modul1, modul2;
var vibor:integer;
begin
   clrscr;
   writeln('Нажмите 1 для добавления записи');
   writeln('Нажмите 2 для поиска записи');
   readln(vibor);
   case vibor of
        1:add_record;
        2:vivod;
   end;
end.

unit modul1;
interface
Procedure add_record;
implementation
Procedure add_record;
type 
    boln=record
    fam, im, ot: string[15];
    god: 1900..2020;
    nomer: integer;
    vrach: string[20];
    pdata: string[15];
end;
var
    z: boln;
    f: text;
begin
  assign(f, 'spisok.txt');
  append(f);
  with z do
  begin
    Writeln('Введите фамилию больного.'); 
    readln(z.fam);
    Writeln('Введите имя больного.'); 
    readln(z.im);
    Writeln('Введите отчество больного.'); 
    readln(z.ot);
    Writeln('Введите год рождения больного.'); 
    readln(z.god);
    Writeln('Введите номер карточки больного.'); 
    readln(z.nomer);
    Writeln('Введите ФИО лечащего врача.'); 
    readln(z.vrach);
    Writeln('Введите дату последнего посещения врача.'); 
    readln(z.pdata);
  end;
  writeln(f, z);
  close(f);
end;
end.

unit modul2;
interface
Procedure vivod;
implementation
Procedure vivod;
type 
    boln=record
    fam, im, ot: string[15];
    god: 1900..2020;
    nomer: integer;
    vrach: string[20];
    pdata: string[15];
end;
var
     f: file of boln;
     famp: string;
     z: boln;
begin
   assign(f,'spiok.txt');
   reset(f);
   Writeln ('Введите фамилию');
   readln(famp);
   while not eof(f) do
   begin
     read(f,z);
     if famp=z.fam then
      writeln (z.fam,' ',z.im,' ',z.ot);
   end;
   close(f);
end;
end.