Число пассажиров, имеющих более 2-х вещей и число тех, у кого количество вещей превосходит среднее число вещей

type
  Baggage = record
    Count: integer;
    Weight: real;
  end;
 
var
  a: array of Baggage;
  st: string; 
  t: Baggage;
  f: file of real;
 
begin
  
  assign(f, 'Baggage.dat');
  reset(f);  
  
  repeat
    repeat
      writeln('Введите кол-во вещей пассажира: ');
      readln(t.Count);
      write(f, t.Count);
    until t.Count >= 0;    
    repeat
      writeln('Введите вес вещей пассажира: ');
      readln(t.Weight); 
      write(f, t.Weight);
    until t.Weight >= 0;
    writeln('Будете еще вводить данные (Да - Нет)?');
    readln(st);
  until st = 'Нет'; 
  close(f);
  assign(f, 'Baggage.dat');
  reset(f); 
  
  read(f,t.Count);
  read(f,t.Weight);
  
  writeln;
  writeln('Работа программы завершена');  
  
end.

type
  Baggage = record
    Count: integer;
    Weight: real;
  end;
 
var
  st: string; 
  t: Baggage;
  f: file of Baggage;
  n, k, s, x, y: integer;
  sr: real;
 
BEGIN
  
  assign(f, 'Baggage.dat');
  rewrite(f);  
  
  repeat
    n := n + 1;
    repeat
      write('Введите кол-во вещей пассажира: ');
      readln(t.Count);
      s := s + t.Count;
      k := k + 1;
    until t.Count >= 0;    
    repeat
      write('Введите вес вещей пассажира: ');
      readln(t.Weight); 
    until t.Weight >= 0;
    write(f, t); 
    repeat
      writeln('Будете еще вводить данные (Да - Нет)?');
      readln(st);
    until (st = 'Да') or (st = 'Нет');    
  until st = 'Нет'; 
  
  sr := s / k;
  reset(f); 
  
  for var i := 1 to n do
  begin
    read(f, t);
    if t.Count > 2
      then x := x + 1;
    if t.Count > sr
      then y := y + 1;
  end;
  
  if x <> 0
    then writeln('I:', x)
  else writeln('I: таких пассажиров нет');
  
  if y <> 0
    then writeln('II:', y)
  else writeln('II: таких пассажиров нет');
  
  writeln;
  writeln('Работа программы завершена'); 
  
  close(f);   
END.