Массивы: Напечатать список предприятий, у которых велечина фонда на социальное страхование выше средней по группе предприятий

uses wincrt;
type
    zapis = record
     name : string[20];
     fond : integer;
     proc : real;
end;
 
 
Var
       x : array[1..50] of zapis;
     i,n : byte;
 sr_fond : real;
min_fond : real;
 
begin
  write('Количество предприятий : '); readln(n);
  writeln;
 
  for i:=1 to n do
    with x[i] do
         begin
             write('Наименование        : ');      readln(name);
             write('Фонды зар. платы    : ');      readln(fond);
             write('Проценты отчисления : ');      readln(proc);
             writeln('-------------------');
          end;
 
   min_fond := x[1].fond;
 
   for i:=1 to n do
       with x[i] do
            begin
                 sr_fond := sr_fond + fond;
 
                 if min_fond > fond
                    then
                        min_fond := fond;
            end;
 
   sr_fond := sr_fond / n;
 
   writeln('Предприятия с фондом большим среднего : ');
   for i:=1 to n do
      with x[i] do
           if sr_fond < fond
              then
                  writeln(name);
 
   writeln('Предприятия с минимальными фондами : ');
   for i:=1 to n do
       if min_fond = x[i].fond
          then
              writeln(x[i].name);
 
 
 end.