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

{Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан массив, содержащий инфорацию о багаже нескольких пассажиров
b) Найти число пассажиров, имеющих более двух вещей, и число пассажиров, количество вещей которых превосходит серднее число вещей.}
program zadacha5v1;
 
type
  Luggage = record
  private 
    Number, Weight: integer;
  public 
    constructor Create(Number: integer; Weight: integer);
    begin
      Self.Number := 0;
      Self.Weight := 0;
    end;
    
    function ToString: string; override;
    begin
      Result := string.Format('Количество вещей: {0} Общий вес багажа: {1}', Number, Weight);
    end;
  end;
 
const
  lengthOfArray: integer = 1000; minValueForRand: integer = 1; maxValueForRand: integer = 10;
 
var
  x, i, count1, count2: integer; arr: array [1..lengthOfArray] of Luggage; average: real;
 
begin
  for i := 1 to lengthOfArray do 
  begin
    arr[i].Number := random(minValueForRand, maxValueForRand);
    arr[i].Weight := random(minValueForRand, maxValueForRand);
    writeln(arr[i]);
    x += arr[i].Number;
  end;
  average := x / lengthOfArray;
  for i := 1 to lengthOfArray do 
  begin
    if arr[i].Number > 2 then begin
      count1 += 1;
      writeln('Пассажир ', i, ' имеет более 2-ух вещей, у него ', arr[i].Number, ' вещей');
    end;
    if arr[i].Number > average then begin
      count2 += 1;
      writeln('Пассажир ', i, ' имеет больше среднего колличетсво вещей - ', arr[i].Number);
    end;
  end;
  writeln('Пассажиров у которых количество вещей более 2 - ', count1);
  writeln('Пассажиров у которых число вещей превосходит среднее число вещей - ', count2, ' среднее число ', average);
end.