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

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.