Дан двухмерный массив найти среднее арифметическое элементов побочной диагонали - Pascal ABC

program pr;
 
var
  a: array [1..100, 1..100] of integer;
  i, n, m, j, sum: integer;
  avg: real;
begin
  sum := 0;
  writeln('Введите количество строк ');
  readln(n);
  writeln('Введите количество столбцов ');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(21);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:3);
    writeln;
  end;
  for i := 1 to n  do
    sum := sum + a[i, n - i + 1];
  avg := sum / n;
  writeln('Среднее арифметическое: ', avg);
end.