Найти число пассажиров, имеющих более двух вещей.

Uses Crt;
Type
passag = Record
vechi:Byte;
ves:Real;
end;
Var
nomer:Array[1..10] of passag;
i,vechi:Byte;
begin
vechi:= 0;
Writeln('Список пассажиров:');
for i:=1 to 10 do
begin
nomer[i].vechi := Random(5);
if nomer[i].vechi = 0 then nomer[i].ves:= 0
else
nomer[i].ves:= 50 * Random;
Writeln('Пасажир№',i,nomer[i].vechi:4,nomer[i].ves:7:2);
end;
Writeln;
for i:=1 to 10 do
begin
if (nomer[i].vechi = 1) and (nomer[i].ves<25) then
begin
Inc (vechi);
Writeln('Пасажир имееться:№',i,nomer[i].vechi:4,nomer[i].ves:7:2);
end;
end;
if (vechi= 0) then
Writeln('такого пасажира нет');
end.

const n=10;
var
  bag:array[1..n] of record
    ves: byte;
    kvo: byte;
  end;
  i:1..n;
  kpv:0..n;
  kpk:0..n;
  mvi:real;
begin
  for i:=1 to n do
    begin
      bag[i].ves:=random(100);
      bag[i].kvo:=random(50);
    end;
  mvi:=0;
  for i:=1 to n do
    mvi:=mvi+bag[i].ves;
  mvi:=mvi/n;
  kpv:=0;
  for i:=1 to n do
    if bag[i].ves>mvi then kpv:=kpv+1;
  kpk:=0;
  for i:=1 to n do
    if bag[i].kvo>2 then kpk:=kpk+1;
  for i:=1 to n do
    writeln('багаж#',i,': вес:',bag[i].ves,', kvo: ',bag[i].kvo);
  writeln('средний вес: ',mvi);
  writeln('kvo pas ves bag>sredn: ',kpv);
  writeln('kvo pas kvo veshey>2: ',kpk);
end.