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

Формулировка задачи:

Дан двумерный массив. Найти максимум среди элементов побочной диагонали, указав номера строки и столбцы, на пересечении которых он находится.

Решение задачи: «Двумерный массив. Найти максимум среди элементов побочной диагонали»

Листинг программы

const m = 10;
var a: array [1..m, 1..m] of integer;
    i, j, mi: integer;
begin
  randomize;
  writeln('Source array:');
  for j := 1 to m do
    begin
      for i := 1 to m do
        begin
          a[i, j] := random(198) - 99;
          write(a[i, j]:4)
        end;
      writeln
    end;
  mi := 1;
  for i := 2 to m do if a[i, m - i + 1] > a[mi, m - mi + 1] then mi := i;
  writeln('Max of elements of secondary diagonal is a[', mi, ', ', m - mi + 1, '] = ', a[mi, m - mi + 1]);
  readln
end.

Объяснение кода листинга программы

Объявлен двумерный массив a размером 10x10 и три переменные i, j, mi типа integer.
В цикле заполняется массив a случайными числами от -99 до 99.
Выводится заполненный массив a.
Переменная mi инициализируется значением 1.
В цикле сравниваются элементы побочной диагонали массива a, и если текущий элемент больше элемента по позиции mi, то значение mi обновляется.
Выводится максимальное значение элемента побочной диагонали массива a, а затем программа завершается.