Работа с матрицей

Const n = 5; m = 5; {n-строка, m-столбец}
 
Var A: array [1..n, 1..m] of integer;
    i, j, ser: integer;
    s: real;
    k: real;
    im, jm: real;
Begin
  for i := 1 to n do for j := 1 to m do
    begin
      a[i,j]:=10+random(50);
    end;
  im:=1; 
  jm:=1;
  if j<i then begin 
  for i:=1 to n do
    for j:=1 to m do
        s:=s+a[i,j];
        k:=k+1;
      end;
        s:=s/k;
      begin
        im:=s;
        jm:=s;
      end; 
      for i := 1 to n do
    begin
      for j := 1 to m do
      if j<i then begin
      Write(A[im,jm]:10:2)
      end
      else write(a[i,j]:10:2);
    WriteLn;
  end;  
END.

const n = 5;
var a: array [1..n, 1..n] of real;
    i, j, ser: integer;
    s: real;
    k: real;
    im, jm: real;
begin
writeln('Исходная матрица');
for i := 1 to n do
 begin
  for j := 1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
s:=0;
k:=0;
for i:=2 to n do
for j:=1 to i-1 do
 begin
  s:=s+a[i,j];
  k:=k+1;
 end;
s:=s/k;
writeln('Среднее значение ниже главной диагонали=',s:0:2);
writeln('Измененная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j=i then a[i,j]:=s;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
end.