Типизированные файлы: имеется ли пассажир, багаж которого состоит из одной вещи весом менее n кг

uses crt;
type
  TPerson = record   {Запись о пассажире}
   Fname:string[20]; {Имя пассажира}
   Ffam:string[20]; {Фамилия пассажира}
   kol:integer; {Колличество вещей}
   ves:integer; {Общий вес багажа}
  end;

var   f:file of TPerson; {Типизированный файл}




{=========================Добавление Записи=================================}
Procedure Add;  {Процедура Добавления Записи}
var Zapis:Tperson;
begin
 clrscr;
 {$I-}

   reset(f);  {Открытие файла}
   seek(f,filesize(f)); {Устанавливаем указатель на конец файла}
   if IoResult<>0 then    {Если файл не существует}
   rewrite(f);  {Создаем новый файл}
 {$I+}
 write('Введите Имя пассажира: ');
 readln(zapis.Fname);
 write('Введите Фамилию пассажира: ');
 readln(zapis.Ffam);
 write('Введите Колличество Вещей: ');
 readln(zapis.kol);
 write('Введите общий вес багажа: ');
 readln(zapis.ves);
   write(f,zapis);
 clrscr;
close(f);
  write('Запись сохранена!');
end;

{===========================================================================}




{===================================Поиск===================================}
Procedure Poisk;
var Passajir:TPerson;
    n:integer;
    k:integer; {Счетчик записей}
begin
  clrscr;
  k:=0;
 {$I-}

 reset(f);
  if IoResult<>0 then  {Если файла нет}
   begin
    Write('Ошибка! Файл не найден!'+ #10#13+ 'Возможно файл не был создан.');
    readln;
    exit;
   end;

  Write('Введите ограничение веса: ');
  Readln(n);

 while not EOF(f) do  {Пока нет конца файла}
  begin
    read(f,Passajir); {Читаем записи в файле}
     if (Passajir.kol =1) and (Passajir.ves< n )then
      begin
          k:=k+1;
          writeln('====================',k,'==================');
          writeln('Фамилия: ',Passajir.Ffam);
          writeln('Имя: ',Passajir.Fname);
          writeln('Кол-во вещей: ',Passajir.kol);
          writeln('Вес Багажа: ',Passajir.ves);
          writeln;
      end;
  end; {while}

 if k=0 then
  writeln('Не найдено!');

readln;
end;
{============================================================================}




begin
 Assign(f,'C:\1.dat'); {Связываем текстовую переменную с файлом на диске}

  while true  do
   begin
    clrscr;
    writeln('Выберите действие: '+ #10#13 + '1-Добавить новую запись в файл'+#10#13+
     '2-Поиск пассажира'+ #10#13 +'3-Покинуть программу');
    case readKey of
     '1':Add;
     '2':Poisk;
     '3':exit;
    end;

   end;
end.