Подсчитать и вывести на экран ФИО пассажиров, у которых средний вес одной вещи не более 10 кг

const n = 100;
type
    FIO=record
    family  : string[20];   // фамилия
    name    : string[15];   // имя
    surname : string[20];   // отчество
end;
type
     bagaj = record
     person   : FIO;
     kol      :integer;
     mas      :real;
     end;
var
   B : array[1..n] of bagaj;
   i, j,m : integer;
begin
     write('Количество пасажиров: ');
     readln(m);
for i:=1 to m do
begin
       writeln('Багаж №',i);
       write('Фамилия: '); readln(B[i].person.family);
       write('Имя: '); readln(B[i].person.name);
       write('Отчество: '); readln(B[i].person.surname);
       write('Количество вещей : '); readln(B[i].kol);
       write('Вес в кг: '); readln(B[i].mas);
end;
//****************************************************************
//•   ФИО пассажиров, у которых средний вес одной вещи не более 10 кг.
j:=0;
for i:=1 to m do
if (B[i].mas/B[i].kol < 10) then
    begin
    j:= j + 1;
    if j = 1 then writeln('ФИО пассажиров, у которых средний вес одной вещи не более 10 кг: ');
    if j >= 1 then writeln(B[i].person.family,' ',B[i].person.name,' ',B[i].person.surname);
    end;
if j = 0 then writeln('пассажиров, у которых средний вес одной вещи не более 10 кг  НЕТ')
 
//•   число пассажиров, у которых количество вещей превосходит среднее число вещей.
 
//•   всех пассажиров, у которых багаж состоит из 1 вещи весом менее 100 кг, но более 10 кг.
 
//•   число пассажиров, у которых более 2 вещей общим весом менее 5 кг.
end.