Сформировать запись, имеющую следующую структуру type пассажир=record фамилия:string; имя:string; номер рейса:string; количество вещей:integer; общий

uses crt;
const n=2;
type pass=record
     f:string;
     i:string;
     nr:string;
     kol:integer;
     ov:integer;
     end;
var a:array[1..n] of pass;
    max,max1,i:integer;
begin
    repeat
    i:=i+1;
    writeln('Введите данные ',i,' пассажира');
    writeln('Введите фамилию');
    readln(a[i].f);
    writeln('Введите имя');
    readln(a[i].i);
    writeln('Введите номер рейса');
    readln(a[i].nr);
    writeln('Введите кол-во вещей');
    readln(a[i].kol);
    writeln('Введите общий вес');
    readln(a[i].ov);
until i=n;
    max1:=a[1].ov;
    for i:=1 to n do
    begin
    if max1<a[i].ov then max1:=a[i].ov
    end;
    writeln('Рейс с максимальным весом ', ........... );
    
    max:=a[1].kol;
    for i:=1 to n do
    begin
    if max<a[i].kol then max:=a[i].kol
    end;
    writeln('Пассажир с наибольшим кол-вом вещей ', ...........);
    
    for i:=1 to n do
begin
    writeln('**********************');
    writeln('Фамилия: ',a[i].f);
    writeln('Имя: ',a[i].i);
    writeln('Номер рейса: ',a[i].nr);
    writeln('Кол-во вещей: ',a[i].kol);
    writeln('Общий вес: ',a[i].ov);
    writeln('**********************');
end;
end.

const n=2;
type pass=record
fam:string;
im:string;
numr:string;
koli:integer;
oves:integer;
end;
var a:array[1..n] of pass;
max:string;
max1,i:integer;
begin
repeat
i:=i+1;
writeln('Введите данные ',i,' пассажира');
writeln('Введите фамилию');
readln(a[i].fam);
writeln('Введите имя');
readln(a[i].im);
writeln('Введите номер рейса');
readln(a[i].numr);
writeln('Введите кол-во вещей');
readln(a[i].koli);
writeln('Введите общий вес');
readln(a[i].oves);
until i=n;
max1:=a[1].oves;
for i:=1 to n do
begin
if max1<a[i].oves
then max:=a[i].numr
end;
writeln('Рейс с максимальным весом ',max );
 
max1:=a[1].koli;
for i:=1 to n do
begin
if max1<a[i].koli 
then max:=a[i].fam+' '+a[i].im
end;
writeln('Пассажир с наибольшим кол-вом вещей ',max);
 
for i:=1 to n do
begin
writeln('**********************');
writeln('Фамилия: ',a[i].fam);
writeln('Имя: ',a[i].im);
writeln('Номер рейса: ',a[i].numr);
writeln('Кол-во вещей: ',a[i].koli);
writeln('Общий вес: ',a[i].oves);
writeln('**********************');
end;
end.