Вычислить среднее арифметическое всех элементов матрицы

type
  matr=array[1..10,1..10] of integer;
var
  x:matr;
  n:integer;
 
procedure create(var a:matr);
var
  i,j:integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=10+random(90);
end;
 
procedure createzero(var a:matr);
var
  i,j:integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      if i<j then
        a[i,j]:=0;
end;
 
procedure printmatrix(a:matr);
var
  i,j:integer;
begin
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
      writeln;
   end;
end;
 
function isMatrixZero(a:matr):boolean;
var
  i,j:integer;
  yes:boolean;
begin
  yes:=true;
  for i:=1 to n do
    for j:=1 to n do
      if i<j then
        if a[i,j]<>0  then
          begin
            yes:=false;
            break;
          end;
  ismatrixzero:=yes;
end;
 
function average1(a:matr):real;
var
  i,j:integer;
  sum:real;
begin
  sum:=0;
  for i:=1 to n do
    for j:=1 to n do
      sum:=sum+a[i,j];
  sum:=sum/(n*n);
  average1:=sum;
end;
 
function average2(a:matr):real;
var
  i,j:integer;
  sum:real;
  col:integer;
begin
  sum:=0; col:=0;
  for i:=1 to n do
    for j:=1 to n do
      if i<j then
        BEGIN
          sum:=sum+a[i,j];
          inc(col);
        end;
  sum:=sum/col;
  average2:=sum;
end;
 
begin
  write('Порядок матрицы n = ');
  readln(n);
  create(x);
  printmatrix(x);
  {Для отладки} 
{  createzero(x);
  writeln('Новая матрица :');
  printmatrix(x);}
  if ismatrixzero(x) then
    begin
      writeln('В матрице все элементы выше главной = 0 ');
      writeln('Cреднее арифметическое всех элементов матрицы: ', average1(x):8:2)
    end
  else
    begin
      writeln('В матрице не все элементы выше главной = 0 ');
      writeln('Cреднее арифметическое элементов, лежащих выше главной диагонали: ', average2(x):8:2)
    end;
  readln;
end.