Почему-то при вызове search->search3 я ничего не могу даже ввести, однако отдельно от search, search3 работает...

procedure search1(var f5:fp);
var line:integer;
    zk5: pasport;
    i:boolean;
begin
 reset(f5);
 writeln('Введите возраст');
 read(line);
 i:=false;
 while not eof(f5) do begin
  read(f5,zk5);
  if zk5.year>line then begin
     i:=true;
     writeln(zk5.name);
     writeln(zk5.forname);
     writeln(zk5.pasid);
     writeln(zk5.year);
     writeln(zk5.adres);
     writeln;
  end;
  end;
  if i=false then writeln('Таких людей в базе нет');
  close(f5);
  writeln;
end;
 
 
procedure search2(var f6:fp);
var pas_check:integer;
    zk6: pasport;
    i2:boolean;
begin
  reset(f6);
  writeln('Введите номер паспорта');
  read(pas_check);
  i2:=false;
  while not eof(f6) do begin
   read(f6,zk6);
   if zk6.pasid = pas_check then begin
      i2:=true;
      writeln(zk6.name);
      writeln(zk6.forname);
      writeln(zk6.pasid);
      writeln(zk6.year);
      writeln(zk6.adres);
      writeln;
    end;
  end;
  if i2=false then writeln('Таких людей в базе нет');
  close(f6);
  writeln;
end;
 
 
procedure search3(var f7:fp);
var i3:boolean;
    zk7: pasport;
    name1:string;
begin
clrscr;
reset(f7);
 writeln('Введите фамилию');
 readln(name1);
 i3:=false;
 while not eof(f7) do begin
 read(f7,zk7);
  if zk7.name=name1 then
     begin
     i3:=true;
     writeln(zk7.name);
     writeln(zk7.forname);
     writeln(zk7.pasid);
     writeln(zk7.year);
     writeln(zk7.adres);
     writeln;
   end;
 end;
  if i3=false then writeln('Нет таких людей');
  close(f7);
  writeln;
  end;
   
 
 
procedure search(var f8:fp);
var j1:byte;
begin
 writeln('Какой поиск задействовать?');
 writeln('Поиск по возрасту');
 writeln('Поиск по паспорту');
 writeln('Поиск по фамилии');
 read(j1);
 if j1=1 then search1(f8) else
 if j1=2 then search2(f8) else
 if j1=3 then search3(f8) else
 writeln('Неккоретные данные');
end;