Дана квадратная матрица A порядка M. Найти среднее арифметическое элементов ее побочной диагонали.

Program maxim;
Uses crt;
 var b:array [1..100,1..100] of real;
     i,j,n:integer;
     sum:real;
begin
clrscr;
 Writeln (' vvedite razmernost matrici ');
 Readln (n);
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j]:4:2,' ');
    writeln;
 end;
writeln;
for i:=1 to n do
  for j:=1 to n do
    if i+j=n+1 then sum:= (sum+a[i, j])/n;
writeln ('Summa elementov = ',sum:4:2);
Readln
end.

Program maxim;
Uses crt;
 var b:array [1..100,1..100] of real;
     i,j,n:integer;
     sum:real;
begin
clrscr;
 Writeln (' vvedite razmernost matrici ');
 Readln (n);
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j]:4:2,' ');
    writeln;
 end;
writeln;
for i:=1 to n do
  for j:=1 to n do
    if i+j=n+1 then sum:= (sum+b[i, j]);
 
writeln ('Summa elementov = ',sum/n:4:2);
Readkey;
end.

sum:= (sum+b[i, j]);