Паскаль.... задача про багаж.. дан файл багаж, содержащий сведения о багаже нескольких пассажиров.

[Сашунечка]

Ребятя, помогите, пожалуйста, никак не разберусь с этой задачкой...
Багаж пассажира характеризуется количеством вещей и
общим весом вещей. Дан файл багаж, содержащий
сведения о багаже нескольких пассажиров. представляют
собой запись с двумя полями: одно поле целого типа
(количество вещей) и одно – действительное (вес в
килограммах).
а) Найти багаж, средний вес одной вещи в котором
отличается не более, чем на 0.3кг от общего среднего
веса одной вещи.
б) Найти число пассажиров, имеющих более двух вещей
и число пассажиров, количество вещей которых
превосходит среднее число вещей.
В) Выяснить, имеется ли пассажир, багаж которого
состоит из одной вещи весом менее 30кг
РЕБЯТА , ПОМОГИТЕ, ПЛИИИИЗ, ОЧЕНЬ НУЖНО

[TinMan]

type
  tBaggage: record
    n: integer;
    w: single
  end;
var
  f: file of tBaggage;
  b: tBaggage;
  aw,an: single;
  p,pGT2p: integer;
  OnePlaceLessThen30: boolean;

begin
  assign(f,'baggage.txt');
  reset(f);
  aw:= 0;  // average weight (total)
  an:= 0;  // average number of places
  p:= 0;  // passengers count
  pGT2p:= 0;  // number of passengers with more then 2 places
  while not EoF(f) do with b do begin
    read(f,b);
    aw:= aw+w;
    an:= an+n;
    if n>2 then inc(pGT2p);
    inc(p)
  end;
  aw:= aw/p;
  an:= an/p;
  reset(f);
  OnePlaceLessThen30:= false;
  while not EoF(f) do with b do begin
    read(f,b);
    OnePlaceLessThen30:= OnePlaceLessThen30 or (n=1) and (w<30);
    // here, I've got tired.. :)

Сашунечка.. я тайпил, тайпил, да и устал..
Я тебе помог? ))