Найти среднее арифметическое элементов, расположенных ниже строки с максимальным элементом матрицы

const n=4; m=3;
type
Mass=array[1..n,1..m] of integer;
var
a:Mass;
I, j, Max, Imax, Jmax: integer;
      begin
        Randomize;
            for i:=1 to n do
              begin
                for j:=1 to m do
                  begin
                    a[I,j]:=-50+random(101);
                    write(a[I,j]:4);
                  end;
                  writeln;
              end;
Max:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if Max<=a[i,j] then
begin
Max:=a[i,j];
Imax:=i; Jmax:=j;
end;
Writeln('Max=',Max);
Writeln('Imax=',Imax);
Writeln('Jmax=',Jmax);
Readln;
End.

{ В матрице A[1..N,1..M] вычислить сумму элементов, находящихся правее столбца
с максимальным элементом матрицы, и среднее арифметическое элементов,
расположенных ниже строки с максимальным элементом матрицы.}
{ PascalABC }
const
  n=4;
  m=3;
type
  Mass=array[1..n,1..m] of integer;
var
  a:Mass;
  I, j, Max, Imax, Jmax: integer;
  s1,s2: integer;
  avg: real;
begin
  Randomize;
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[I,j]:=-50+random(101);
          write(a[I,j]:4);
        end;
      writeln;
    end;
 
  Max:=a[1,1];
  Imax:=1;
  Jmax:=1;
  for i:=1 to n do
    for j:=1 to m do
      if Max<=a[i,j] then
        begin
          Max:=a[i,j];
          Imax:=i;
          Jmax:=j;
        end;
  s1 := 0;
  for i:= 1 to n do
    for j:= jmax to m do
      s1 := s1+a[i,j];
        
  if imax=n then
    avg:=0
  else begin
    s2 := 0;
    for i:= imax+1 to n do
      for j:= 1 to m do
        s2 := s2+a[i,j];
    avg:= s2/((n-imax)*m);
  end;
 
  Writeln('Max=',Max);
  Writeln('Imax=',Imax);
  Writeln('Jmax=',Jmax);
  Writeln('S1=',S1);
  Writeln('avg=',avg:0:3);
  Readln;
End.