Запись: Выяснить, имеется ли пассажир, багаж которого превышает багаж каждого из остальных пассажиров по кол-ву вещей и по весу

uses crt;
const nmax=20;
type bagazh=record
      kol: integer;
      ves: real;
      end;
 
 var b: bagazh;
     a: array [1..nmax] of bagazh;
     i,n,maxkol,k: integer;
     maxves: real;
 
begin
repeat
write('Количество пассажиров (не более ',nmax,'): '); readln(n);
until n in [1..nmax];
for i:=1 to n do
with a[i] do
     begin
     writeln('Багаж № ',i);
     write('Количество вещей: '); readln(kol);
     write('Общий вес: ');  readln(ves);
     if i=1 then
        begin
        maxkol:=kol; maxves:=ves;
        end  else
             begin
             if kol>maxkol then maxkol:=kol;
             if ves>maxves then maxves:=ves;
             end;
     end;
writeln('Максимальныое количество ',maxkol);
writeln('Максимальный вес ',maxves:0:2);
for i:=1 to n do
    with a[i] do
         if (kol=maxkol) and (ves=maxves) then inc(k);
if k=0 then writeln('Нет пассажиров, багаж которых превышает багаж остальных пассажиров по весу и количеству вещей')
   else if k=1 then writeln('Есть пассажир, багаж которого превышает багаж остальных пассажиров по весу и количеству вещей')
        else writeln('Есть несколько пассажиров, багаж которых превышает багаж остальных пассажиров по весу и количеству вещей');
readln;
end.