База данных: при вводе фамилии вывести пол и возраст

uses crt;
//тип записей
type data=record
          fam:string[20];
          pol:char;
          age:integer;
          end;
var f:file of data; //файл записей=БД
    a:data;
    n,i:integer;
    fm:string[20];
    c:char;
begin
//создание БД, можно отдельной программой
randomize;
assign(f,'data');
rewrite(f);
n:=5+random(5);//количество записей а базе, числа возьмите по своему усмотрению
writeln('Ввдите в базу данные на ',n,' человек');
for i:=1 to n do
 begin
  writeln('Запись ',i);
  with a do
   begin
    write('Введите фамилию: ');readln(fam);
    repeat
    write('Введите пол м,ж: ');
    readln(pol);
    until pol in ['м','ж'];
    repeat
    write('Ведите возраст от 18 до 80: ');
    readln(age);
    until age in [18..80];
    write(f,a);
   end;
 end;
close(f);
clrscr;
//поиск по фамилии
repeat
write('Введите фамилию для поиска: ');
readln(fm);
reset(f);
i:=0;
while not eof(f) do
 begin
  read(f,a);
  if a.fam=fm then
   begin
    i:=1;
    writeln(a.pol,' ',a.age);
   end;
 end;
if i=0 then writeln('Такой фамилии в базе нет');
writeln('Продолжить поиск? y/Y да, другое нет');
readln(c);
if upcase(c)<>'Y' then
 begin
  close(f);
  write('Поиск завершен');
 end
else clrscr;
until upcase(c)<>'Y';
end.