Вывести на экран данные о пассажирах, вес багажа которых больше заданного - Turbo Pascal

Формулировка задачи:

Итак у меня есть задание: Имеются данные о багаже пассажиров: фамилия, количество вещей, общий вес багажа. Составить программу, выводящую на экран данные о пассажирах, вес багажа которых больше заданного и количество вещей не более заданного. Если данных нет, то выдать соответствующее сообщение. Программу сделал, но на последнем пункте запнулся.Никак не могу нормально вывести "Нет нужных данных".Оно либо всегда выводится, даже при выполнении условия.Или же 2 раза выводится если условие не выполняется. В чем проблема? Вот программа:

                    Листинг программы
                
 
                            
                        
Program IndivBAZA;
uses crt;
type pasaj=record
     fam:string[60];
     kolVesh:integer;
     sumKG:integer;
     end;
     pasaji=array[1..60] of pasaj;
     var tet:pasaji; minves,zad,maxvesh,n,i,kol:integer;
     avt:string[20];
Begin
     clrscr;
     write ('Введите количество пасажиров: ');
     readln(n);
     writeln ('Введите данные: ');
     For i:=1 to n do
         Begin
              writeln (i, '-й пасажир: ');
              write ('- фамиллия: ');         readln(tet[i].fam);
              write ('- количество вещей: '); readln (tet[i].kolVesh);
              write ('- общий вес багажа: '); readln (tet[i].sumKG);
         End;
         writeln;
         write ('Введите минимальный вес: ');
         readln(minves);
         write ('Введите максимльное количество вещей: ');
         readln(maxvesh);
         kol:=0;
                    For i:=1 to n do
                      with tet[i] do
                        if (minves<sumKG) and (maxvesh>kolVesh) then
                           Begin
                                writeln ('    Фамилия     Количевство вещей     Общий вес багажа');
                                kol:=kol+1;
                                writeln (tet[i].fam:10,tet[i].kolVesh:13,tet[i].sumKG:24);
                           end
                        Else
                        Begin
                           write ('Нет нужных данных');
                        end;
 
readln;
End.

Решение задачи: «Вывести на экран данные о пассажирах, вес багажа которых больше заданного»

textual
                            Листинг программы 
                        
Write(#$B3' Фамилия '#$B3...