Багаж пассажира характеризуется количеством вещей и общим весом вещей. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно — действительное (вес в килограммах). Найти багаж, средний вес одной вещи в котором отличается не более, чем на 0.3 кг от общего среднего веса одной вещи. — Pascal(Паскаль)

uses crt;

type
  bagaz = record
    kol: byte;
    ves: real;
  end;

var
  bg: array [1 .. 100] of bagaz;
  n, i, k, k2, ks, p: integer;
  srv, srk: real;

begin
  Writeln('введите кол-во пассажиров');
  Readln(n);
  Writeln('введите данные о багаже');
  srv := 0;
  srk := 0;
  k := 0;
  for i := 1 to n do
  begin
    Writeln('багаж ', i);
    write('количество мест: ');
    Readln(bg[i].kol);
    k := k + bg[i].kol;
    write('вес: ');
    Readln(bg[i].ves);
    srk := srk + bg[i].kol;
    srv := srv + bg[i].ves;
  end;
  srk := srk / n;
  srv := srv / k;
  Writeln('средний вес 1 вещи = ', srv:0:2);
  p := 0;
  Writeln('багаж, где средний вес 1 вещи отличается не более, чем на 0,3 от среднего веса');
  k2 := 0;
  ks := 0;
  for i := 1 to n do
  begin
    p := 1;
    Writeln(bg[i].kol, ' ', bg[i].ves:0:2);
  end;
  if bg[i].kol > 2 then
    k2 := k2 + 1;
  if (bg[i].kol > srk) then
    ks := ks + 1;
  if p = 0 then
    Writeln('такого багажа нет');
  Writeln;
  Writeln('число пассажиров, имеющих более 2 вещей = ', k2);
  Writeln('среднее число вещей = ', srk:0:0);
  Writeln('число пассажиров, имеющих вещей больше среднего = ', ks);
  Readln;

end.