Найти количество элементов матрицы, модуль разности между которыми и средним арифметическим элементов матрицы более 1

begin
  var n := ReadlnInteger('N =');
  var a := MatrRandomReal(n, n, -10, 10); a.Println;
  var average := a.ElementsByRow.Average;
  writeln('Количество: ', a.ElementsByRow.Where(v -> abs(v) - average > 1).Count)
end.

const
  n = 10;
type
  ta = array[1..n, 1..n] of real;
  
procedure average(const a : ta; var av : real);
var i, j : integer;
begin
  av := 0;
  for i:=1 to n do
    for j:=1 to n do av:=av+a[i,j];
  av := av / sqr(n);
end;
procedure proc_count(const a : ta; av : real; var c : integer);
var i, j : integer;
begin
  c := 0;
  for i:=1 to n do
    for j:=1 to n do if abs(a[i,j]-av)>1 then inc(c);
end;
 
var
  a: ta;
  i, j, count: integer;
  avr: real;
begin
  writeln('Matrix:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:= -2 + random * 4; // случайное в диапазоне от -2 до 2
      write(a[i,j]:8:3);
    end;
    writeln;
  end;
  average(a, avr:8:3);
  writeln('Average = ',avr);
  proc_count(a, avr, count);
  writeln('Count = ',count);
end.