народ нужно решить задачю!

[finch]

дана матрица а(н,м)
найти количество элементов этой матрицы,больших среднего арифметического всех её элементов!
help!!!!!!!!!!pliz!!!!!!!!!!!
завтра здавать отчёт!
решите кто нибудь!пожалуста!

[Carbon]

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.