Составьте программу подсчета числа элементов двумерного массива А превосходящих среднее арифметическое

var
  a: array of array of real;
begin
  var par: integer:= ReadInteger;
  SetLength(a, par);
  for var i:= 0 to par-1 do
    a[i]:= ArrRandomReal(par, -10, 10);
  var sum_: real;
  for var i:= 0 to par-1 do
    sum_ += a[i].Println('; ').Sum;
  var sr_ar: real:= sum_/(a.Length*a.Length);
  Writeln('Среднее арифметическое = ', sr_ar, ' Элементы больше среднего арифметического:');
  for var i:= 0 to par-1 do
    a[i].Where(x -> x > sr_ar).Println('; ');
end.

var
  a: array of array of real;
begin
  var m: integer:= ReadInteger('m = ');
  var n: integer:= ReadInteger('n = ');
  SetLength(a, m);
  for var i:= 0 to m-1 do
    a[i]:= ArrRandomReal(n, -10, 10).Println('; ').ToArray();
  (*
  // Оставлено для проверки, чтобы можно было убедиться в правильности вычисления среднего значения
  var sum_: real;
  for var i:= 0 to m-1 do
    sum_ += a[i].Println('; ').Sum;
  var sr_ar := sum_ / m / n;
  writeln('Среднее арифметическое = ', sr_ar);
  *)
  var avg:= Range(0, m-1).Select(i->a[i].Average()).ToArray().Average();
  Writeln('Среднее арифметическое = ', avg, ' Элементы больше среднего арифметического:');
  var count := 0;
  for var i:= 0 to m-1 do
    count += a[i].Where(x -> x > avg).Println('; ').Count;
  writeln('Количество элементов = ', count);
end.