Найти среднее положительных элементов матрицы, сумму элементов над главной диагональю

const g = 12;
type mas = array [1..g, 1..g] of integer;
 
procedure readln_pr(s: string; var x: integer);
begin
  repeat
    write(s, ' в диапазоне [1..', g, '];  ', s, ' = ');
    readln(x)
  until x in [1..12]
end;
 
procedure pol_sr(var x: mas; n, m: integer; var a: real; var k: integer);
var i, j: integer;
begin
  k := 0;
  a := 0;
  for i := 1 to n do
    for j := 1 to m do
      if x[i, j] > 0 then
        begin
          inc(k);
          a := a + x[i, j]
        end;
  if k > 0 then a := a / k
end;
 
procedure sum(var x: mas; n, m: integer; var s: real);
var i, j: integer;
begin
  s := 0;
  for i := 1 to n do
    for j := i + 1 to m do
      s := s + x[i, j]
end;
 
var a: mas;
    i, j, n, m, p: integer;
    sr, sm: real;
begin
  readln_pr('n', n);
  readln_pr('m', m);
  writeln('Исходная матрица:');
  randomize;
  for i := 1 to n do
    begin
      for j := 1 to m do
        begin
          a[i, j] := -99 + random(199);
          write(a[i, j]:4)
        end;
      writeln
    end;
  pol_sr(a, n, m, sr, p);
  writeln;
  if p = 0
    then writeln('В матрице нет положительных элементов.')
    else writeln('Среднее арифметическое положительных элементов = ', sr:0:5);
  writeln;
  if m = 1
    then writeln('В матрице нет элементов выше главной диагонали.')
    else
      begin
        sum(a, n, m, sm);
        writeln('Сумма элементов выше главной диагонали = ', sm:0:0)
      end;
  readln
end.