Помогите написать программу

[Certate]

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

[Mad_Cat]

Const N=5;
var M:array[1..N,1..N] of integer;
  i,j:byte;
  Avg:real;
begin
  Randomize;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          M[i,j]:=random(N*N);
          Write(M[i,j]:4);
        end;
      writeln;
    end;
  AVG:=0;
  for i:=1 to n do
  AVG:=AVG+M[i,n-i+1];
  AVG:=AVG/n;
  Writeln(AVG:6:3);
  readln;
end