Записи!Туплю!!!

[ТРОЯН=)]

Помогите плиз кому не сложно!))Задача такая:
Сформировать запись ... type пассаж. = record фамилия string
имя string
номер рейса string
количество вещей integer
общий вес integer
(вообщем я её сформировал)вот и такие задания:
1. Число пассажиров количество вещей которых превосходит среднее число вещей
?? как здесь среднее арих. найти??

2.пассажира с данным количеством вещей и не более данного веса
3.Вывести информацию о количестве вещей и общем весе каждого рейса.
Плиз нужны хотяб подсказки а то я вообще затупил((

[Greblin]

Заносите все записи в массив (если они хранятся в файле, то можно и без этого), и проходите по нему, проверяя нужные условия. Вот к 1 например

var pass: array[1..N] of passanger;
     col: integer; //количество записей
     sred, pcount, i: integer;
...
sred := 0;
for i := 1 to col do sred := sred + pass[i].colvo_veshey;
sred := sred div col;
pcount := 0;
for i := 1 to col do if pass[i].colvo_veshey > sred then pcount := pcount + 1;
writeln(pcount);