Среди элементов матрицы расположенных выше побочной диагонали найти максимальный элемент - Turbo Pascal

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

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

Решение задачи: «Среди элементов матрицы расположенных выше побочной диагонали найти максимальный элемент»

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

const
  n = 4;
 
var
  a: array [1..n, 1..n] of integer;
  i, j, max, imax, jmax: integer;
 
begin
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := -n * n div 2 + random(n * n);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  imax := 1;
  jmax := 1;
  max := a[1, 1];
  for i := 1 to n - 1 do
    for j := 1 to n - i do
      if a[i, j] > max  then 
      begin
        max := a[i, j];
        imax := i;
        jmax := j;
      end;
  writeln('Max: ', max, ', строка: ', imax, ', столбец: ', jmax);
end.

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

В начале кода объявляются переменные n, a, i, j, max, imax и jmax. Переменная n инициализируется значением 4.
Затем идет цикл for, который выполняется n раз (где n - это значение переменной n). Внутри этого цикла также идет вложенный цикл for, который также выполняется n раз (где n - это значение переменной n).
Внутри вложенного цикла каждая ячейка массива a[i, j] инициализируется случайным числом от -nn до nn. Это число выводится на экран.
После окончания вложенного цикла выводится символ новой строки.
Затем инициализируются переменные imax, jmax и max. Значение переменной max устанавливается равным первому элементу массива a[1, 1]. Значения переменных imax и jmax устанавливаются равными 1.
Далее идет цикл for, который выполняется до тех пор, пока значение переменной n не станет меньше или равно 1. Внутри этого цикла сравниваются значения элементов массива a[i, j] и max. Если значение a[i, j] больше max, то max, imax и jmax обновляются.
По окончании цикла выводится на экран значение max, а также строка и столбец, в которых находится максимальное значение.