Написать программу нахождения количества элементов больших среднего арифметического — Pascal(Паскаль)

uses crt;
const n=5; m=6;
var a: array[1..n, 1..m] of integer; 
      i,j,k: byte; sum: integer; sr: real;
begin
 randomize;
 clrscr;
 sum:=0;
 sr:=0;
 k:=0;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random (20)-10;
     write (a[i,j]:3);
    end;
   writeln;
  end;
 for i:=1 to n do
  for j:=1 to m do
   sum:=sum+a[i,j];
 sr:=sum/sqr(n);
 for i:=1 to n do
  for j:=1 to m do
   if a[i,j]>sr then inc (k);
 writeln ('кол-во элементов больших среднего арифметического = ',k);
end.

type matr=array[1..20,1..20] of real;
function Koll(a:matr;n,m:byte):integer;
var i,j:byte;
     k:integer;
     sr:real;
begin
sr:=0;
for i:=1 to n do
for j:=1 to m do
sr:=sr+a[i,j];
sr:=sr/(n*m);
k:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>sr then inc(k);
Koll:=k;
end;