Pascal Дан двумерный массивНайти наименьший елемент побочной диагонали. Заранее спасибо!

begin
  var n:=ReadInteger('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*n*'-');
  var min:=a[0,n-1];
  for var i:=1 to n-1 do
    if a[i,n-i-1]<min then min:=a[i,n-i-1];
  Writeln('Минимальный элемент на побочной диагонали равен ',min)
end.


Количество строк и столбцов в массиве: 7
*** Исходный массив ***
 -73  45 -54  73  62 -65  27
 -42  68 -61 -92  69 -44  73
  28 -90  85  10  69 -42  -8
  15  12   9 -52 -97  11  61
  -9 -68  -2 -93  85 -48 -35
  61 -76 -78  91 -23 -15  16
 -25  51 -38  60 -19 -22  -3
----------------------------
Минимальный элемент на побочной диагонали равен -76