Найти количество элементов массива, больших среднего арифметического всех ее элементов

program Pascal1;
const N=5; M=6;
var A: array [1..N,1..M] of integer;
    i, j, s, k: integer;
    sr: real;
begin
k:=0; s:=0;
randomize;
for i:=1 to N do begin
for j:=1 to M do begin
A[i,j]:=random(50)-10;
write (A[i,j]:6);
end; writeln; end;
 
for i:=1 to N do
for j:=1 to M do
s:=s+A[i,j];
writeln ('s = ',s);
 
for i:=1 to N do
for j:=1 to M do
k:=k+1;
writeln ('k = ',k);
 
sr:=s/k;
writeln ('Srednee ',sr);
 
if (A[i,j]>=sr) then begin
                  inc(k);
                  end;
                  writeln ('Kolichestvo ',k);
                  end.

program Pascal1;
 
const
  N = 5; M = 6;
 
var
  A: array [1..N, 1..M] of integer;
  i, j, k: integer;
  s: real;
 
begin
  cls;
  k := 0; s := 0;
  randomize;
  for i := 1 to N do 
  begin
    for j := 1 to M do 
    begin
      A[i, j] := random(50) - 10;
      write(A[i, j]:6);
      s := s + A[i, j] //Сумма элементов
    end;
    writeln
  end;
  s := s / (N * M); //Среднее арифметическое (сумму делим на количество ВСЕХ чисел)
  writeln('Srednee ', s:0:3); 
  for i := 1 to N do
    for j := 1 to M do
      if a[i, j] > s then k := k + 1; //Считаем элементы большие среднего
  writeln('Kolichestvo ', k)
end.