{* Задача 464 *}

Unit ZADACH464;
Interface
Implementation
Begin
 writeln('Сформировать массив, каждый элемент которого имеет следующую структуру: пассажир=фамилия:string; имя:string; номер рейса:integer; количество вещей:integer; общий вес:integer; и определить: рейс с максимальным весом багажа; пассажира с наибольшим количеством вещей; вывести список пассажиров и информацию об их багаже, улетающих данным рейсом.');
End.

Program zadach464;

Uses zadach464.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  n = 10;
Type {* Создание новых типов данных *}
  passagir = Record                surname, name : String;
  number, kol, ves : integer;
  End;
Var {* В работе нам потребуются переменные: *}
  ps      : Array [1..n] Of passagir;
  i       : integer;
  n1      : integer;
  m       : integer;
  p       : integer;
  max_ves : integer;
  max_kol : integer;
  Begin
For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
Begin
  readln(ps[i].surname);
  readln(ps[i].name);
  readln(ps[i].number);
  readln(ps[i].kol);
  readln(ps[i].ves);
End;
max_ves := 0;
max_kol := 0;
For i := 1 To n Do {* Цикл для i => [1 .. n] *}
Begin
  If ps[i].ves > max_ves Then
  Begin
    max_ves := ps[i].ves;
    m := i;
  End;
  If ps[i].kol > max_kol Then
  Begin
    max_kol := ps[i].kol;
    p := i;
  End;
  
End;
writeln ('Рейс с максимальным весом-', ps[m].number);
writeln ('Пассажир с наибольшим количеством вещей-', ps[p].surname, ' ', ps[p].name);
writeln ('Введите номер рейса');
readln (n1);
For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  If ps[i].number = n1 Then
Begin
  writeln(ps[i].surname);
  writeln(ps[i].name);
  writeln(ps[i].kol);
  writeln(ps[i].ves);
End;

End..