Записи: Багаж пассажира характеризуется количеством вещей и общим весом вещей

const n=4;
type bag=record
masa:real;
kolvo:integer;
end;
 var a:array[1..2*n] of bag;
 i:integer; d:bag;
 begin
  for i:=1 to n do
   with a[i] do begin
   writeln('kolvo vewey',' ',i,' ','pasagira'); readln(kolvo);
   writeln('massa vewey',' ',i,' ','pasagira'); readln(masa);
   end;
    for i:=1 to n do
     if (a[i].kolvo=a[i+1].kolvo) and (a[i].masa-a[i+1].masa=0.5) or (a[i+1].kolvo-a[i].kolvo=0.5) then
      writeln(i,'pasagir', d.kolvo,'-',d.masa);
       for i:=1 to n do
        if (a[i].masa>a[i+1].masa) and (a[i].kolvo>a[i+1].kolvo) then
        writeln(i,'pasagir max');
       end.

const n=4;
type bag=record
masa:real;
kolvo:integer;
end;
 var a:array[1..2*n] of bag;
 i,im,j,t:integer; d:bag;
 begin
  for i:=1 to n do
   with a[i] do begin
   writeln('kolvo vewey',' ',i,' ','pasagira'); readln(kolvo);
   writeln('massa vewey',' ',i,' ','pasagira'); readln(masa);
   end;
   im:=0;
   For i:=1 to n do
   Begin
     t:=1;
     for j:=i+1 to n do
      if (A[i].kolvo<A[j].kolvo)and(A[i].masa<A[j].masa) then t:=0;
     if t=1 then im:=i;
     if t=1 then break;//чтобы дальше не искать
   End;
   if im>0 then writeln('Номер такого пассажира ',im)
    else writeln('Нету такого пассажира');
       end.