Найти количество элементов матрицы больших среднего арифметического всех её элементов — Pascal(Паскаль)

const
  N = 10, M = 10;

var
  i, j, count: integer;
  A: array [1 .. N, 1 .. M] of float;
  mean: float;

begin
  mean := 0.0;
  for i := 1 to N do
    for j := 1 to M do
      mean := mean + A[i, j];
  mean := mean / (M * N);
  count := 0;
  for i := 1 to N do
    for j := 1 to M do
      if A[i, j] > mean then
        count := count + 1;
  writeln(count)

end.