Proga_Of_Serebros_EZHZHI

procedure stazh(f: fotea);
var
  stazh: integer;
  r: teachers;
  flag: boolean;
begin
  flag:=false;
  reset(f);
  write('Введите минимально необходимый стаж учителя: ');
  readln(stazh);
  seek(f, 0);
  write('Учителя с необходимым стажем: ');
  while (not eof(f)) do
  begin
    read(f, r);
    if (r.yos) >= (stazh) then
    begin
     flag:=true;
      with r do
      begin
        writeln;
        write('   Фамилия:  ', surname);
        write('   Имя:  ', name);
        write('   Отчество:  ', name2);
        write('   Стаж: ', yos);
      end;
    end;
  end;
  if not flag then writeln('Нет');
 close(f);
end;