Вывести на экран фамилии тех сотрудников, у которых выслуга лет меньше вводимого с клавиатуры

program lab7_1;
uses crt;
type recbook = record
  fio: string[30];
pol:string[7];
dolgnost: string[40];
oklad: real;
obrazovanie: string[50];
vslugaG: integer;
name: string[15];
end;
var
bookfile: file of recbook;
work: recbook;
vid: byte;
end_menu: boolean;
name: string[20];
 
procedure create;
var i, count: integer;
begin
  clrscr;
  writeln('Создание');
  write('Введите имя файла: ');
  readln(name);writeln;
  assign(bookfile, name);
  rewrite(bookfile);
  write('Введите число записей: ');
  read(count);writeln;
  for i:=1 to count do
    with work do
    begin
      writeln('Запись №', filepos(bookfile)+1);
      write('ФИО: ');read(fio); writeln;
      write('Пол: ');read(pol); writeln;
      write('Должность: ');read(dolgnost); writeln;
      write('Образование: ');read(obrazovanie); writeln;
      write('Оклад: ');read(oklad); writeln;
      write('Выслуга лет в годах: ');read(vslugaG); writeln;
      write(bookfile,work);
    end;
   writeln('Создание завершено');
   writeln('В фирме ',filesize(bookfile),' работников');
   close(bookfile);
   writeln;
end;
 
procedure outputall;
begin
  clrscr;
  writeln('Вывод ');
  write('Введите имя файла: ');
  readln(name);writeln;
  assign(bookfile,name);
  if fileexists(name) then
  begin
    reset(bookfile);
    seek(bookfile,0);
    while not(eof(bookfile)) do
    with work do
    begin
      read(bookfile,work);
      writeln('Запись №',filepos(bookfile));
      writeln('ФИО: ',fio,'; Пол: ',pol,'; Должность:',dolgnost,'; Образование: ',obrazovanie,';Оклад:  ',oklad,'Выслуга лет в годах...: ',vslugaG);
    end;
    close(bookfile);
  end
  else writeln('Файл ',name,' не существует');
  writeln;
end;
 
procedure findfio;
var poisk: integer;
rez_f: boolean;
n: integer;
begin
  clrscr;
  writeln('***Поиск абонента***');
  write('Введите имя файла: ');
  readln(name);writeln;
  assign(bookfile,name);
  if fileexists(name) then
  begin
    reset(bookfile);
    write('Введите выслугу лет для поиска: ');
    read(poisk);writeln;
    rez_f:=false;
    n:=0;
    seek(bookfile,0);
    while not(eof(bookfile)) do
    begin
      read(bookfile,work);
      with work do
        if (vslugaG<poisk) then
        begin
          rez_f:=true;
          inc(n);
          writeln('ФИО: ',fio,'; Выслуга лет в годах...: ',vslugaG);
        end;
    end;
    if rez_f then writeln('По запросу "',poisk,'" найдено записей: ',n)
    else writeln('В фирме нет таких абоненотов  ',poisk);
    close(bookfile);
  end
  else writeln('Файл ',name,' не существует');
  writeln;
end;
 
BEGIN
  clrscr;
  end_menu:=false;
  repeat
    writeln('Выберите тип работы');
    writeln('1 - создание нового файла');
    writeln('2 - просмотр списка');
    writeln('3 - поиск абонента');
    writeln('0 - завершение работы');
    write('Ваш выбор - ');
    read(vid);writeln;
    case vid of
       1: create;
       2: outputall;
       3: findfio;
       0: end_menu:=true;
    end;
  until end_menu;
END.