Структура: Найти багаж, средний вес одной вещи, в котором отличается не более чем на 0.3 кг от общего среднего веса одной вещи

const max = 100;
type
  tBagav =  record
    kol : byte;
    ves : real;
  end;
var
  n,i,k : byte;
  P : array[1..max] of tBagav;
  SrObs,ObKol : real;
Begin
  write('kol-wo passavitow [ <100 ] : '); readln(n);
  writeln('WWdite dannye o nih :'); SrObs:=0; k:=0; ObKol:=0;
  for i:=1 to n do begin
    writeln('---',i,'---');
    write('kol vesej : '); readln(P[i].kol);
    write('ves vesej : '); readln(P[i].ves);
    if P[i].kol>2 then inc(k); { сразу считаем кол вецей >2}
    SrObs:=SrObs+P[i].ves; { суммарный вес всех вещей}
    ObKol:=ObKol+P[i].kol;   { общее кол-во всех вещей}
  end;
  SrObs:=SrObs/ObKol; {Средний Общий вес одной вещи}
  writeln('багаж, средний вес одной вещи, в котором отличается не более чем');
  writeln(' на 0.3 кг от общего среднего веса одной вещи. Sredn ves = ',  SrObs:0:2);
  for i:=1 to n do if abs(srobs-P[i].ves/P[i].kol)<=0.3 then
      writeln('pass N ',i:2,' ego kol = ',P[i].kol,' , ego ves = ',p[i].ves:0:2,' sredn = ',P[i].ves/P[i].kol:0:2);
  writeln('число пассажиров, имеющих более двух вещей : ',k);
  writeln(' среднее число вещей : ',ObKOl/n:0:2);
  write('число пассажиров, количество вещей которых превосходит среднее  число вещей : ');
  k:=0; for i:=1 to n do if p[i].kol>ObKol/n then inc(k); writeln(k);
  readln;
End.