[NeField]

Сведения о пассажире состоят из номера рейса, его фамилии, количества вещей и общего веса вещей.
Дан поток исходных данных типа TFileStream, содержащий сведения о некоторых пассажирах. Построить на его основе список типа TList или TStringList.
В результате обработки этого списка создать список результатов - сведений о пассажирах, багаж которых не меньше багажа каждого из остальных пассажиров одного и того же рейса и по количеству вещей, и по весу.
Сохранить объекты списка-результата в выходном потоке данных.

Заранее спасибо