Подпрограмма: В трех матрицах подсчитать среднее арифметическое элементов расположенных выше главной диагонали.

Program Zadanie79;
type
  TArr = array [1..5,1..5] of integer;
 
// Процедура для вывода матрицы на экран.
procedure InfOutMatrix (arr: TArr; narr,marr: integer);
var
   i,j: integer;
begin
  for i:= 1 to narr do
    begin
    for j:= 1 to marr do
      Write(arr[i,j]:4);
    writeln;
    end;
end;
 
// Процедура для заполнения матрицы случайными числами.
procedure RandomInfInMatrix (var arr: TArr; narr,marr,leftval,rightval: integer);
var
   i,j: integer;
begin
for i:= 1 to narr do
    for j:= 1 to marr do
      arr[i,j]:= leftval + random(rightval - leftval + 1) ;
 
end;
 
// Функция для вычисления среднего арифметического элементов выше главной диагонали.
function SrArethDiagMatrix (var arr: TArr; narr,marr: integer): real;
var
   i,j,k: integer;
   sum: integer;
begin
sum:= 0;
k:= 0;
for i:= 1 to narr do
    for j:= 1 to marr do
      if i < j then
        begin
        sum:=sum + arr[i,j];
        inc(k);
        end;
 
SrArethDiagMatrix:= sum/k;
end;
 
var
  a: array [1..3] of TArr;  // Переменная для хранения массива матриц.
  b: array[1..3] of real; //  Переменная для хранения значений вычисленных средних арифметических.
  i: integer;     //  Промежуточная переменная для организации цикла.
  max: real;    //   Промежуточная переменная для нахождения максимального значения, среди средних арифметических.
  left: integer;   // Переменная для хранения значений левой границы генератора случайных чисел.
  right: integer;   //  Переменная для хранения значений правой границы генератора случайных чисел.
begin
randomize;
left:= -100;
right:= 100;
max:= -5E-324;
for i:=1 to 3 do
  begin
  writeln('Исходная матрица номер ',i);
  RandomInfInMatrix(a[i],5,5,left,right);
  InfOutMatrix(a[i],5,5);
  b[i]:= SrArethDiagMatrix(a[i],5,5);
  writeln('Среднее арифметическое элементов выше главной диагонали: ',b[i]:0:2);
  if b[i] > max then
    max:= b[i];
  end;
writeln('Наибольшее среди значений среднего арифметического элементов выше главной диагонали: ',max:0:2);
 
Readln;
end.