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

uses crt;
const m=4;
type matrix=array [1..10, 1..10] of integer;
var a:matrix;
    i,j,l,n:integer;
    sr:real;
begin
  randomize;
  for i:=1 to m do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(10);
      write(a[i,j],' ');
    end;
    writeln;
  end;
  for l:=1 to 2*m-1 do
  begin
    sr:=0;
    if l<=m then
    begin
      for i:=1 to l do
        sr:=(sr+a[i,l-i+1])/1;
    end
    else if l>n then
    begin
      sr:=0;
      for i:=l-n+1 to n do
        for j:=1-n+1 to n do
          if j=l-i+1 then sr:=(sr+a[i,j])/l;
    end;
    writeln('SR',l,'=',sr);
  end;
end.

uses crt;
const m=4;
type matrix=array [1..10, 1..10] of integer;
var a:matrix;
    i,j,l,k:integer;
    sr:real;
begin
randomize;
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for l:=1 to 2*m-1 do
 begin
  if l<=m then
   begin
    sr:=0;
    k:=0;
    for i:=1 to l do
     begin
      sr:=(sr+a[i,l-i+1]);
      k:=k+1;
     end;
    sr:=sr/k;
   end
  else if l>m then
   begin
    sr:=0;
    k:=0;
    for i:=l-m+1 to m do
     begin
      sr:=(sr+a[i,l-i+1]);
      k:=k+1;
     end;
    sr:=sr/k;
   end;
  writeln('SR',l,'=',sr:0:2);
 end;
end.