Массив: Не получается найти минимальный элемент "над главной диагональю" в динамическом массиве. - Pascal

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

Здравствуйте. Не получается найти мин. элемент "

над главной диагональю

" в динам массиве. Размер массива 4 на 4, индекс от 0 до 3.

function mMinUR(var a: TMatrix; m, n: byte): Real;
var
  min: Real;
begin
  min := a[0, 1];
  for var i := 0 to m-1 do 
  begin
  for var j := i to n-1 do if min > a[i, j] then
  begin
  min := a[i, j];
  mMinUR := min;
  end;
  end;
end;

Решение задачи: «Массив: Не получается найти минимальный элемент "над главной диагональю" в динамическом массиве.»

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

  for var i:=0 to m-2 do
    for var j:=i+1 to n-1 do
      if min>a[i,j] then min:=a[i,j];
  mMinUR:=min;

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

В данном коде выполняется поиск минимального элемента в динамическом массиве a методом двоичного поиска.

Создается переменная min со значением, которое больше всех возможных значений в массиве a.
Происходит два вложенных цикла:
- Внешний цикл выполняется от элемента с индексом 0 до элемента с индексом m-2.
- Внутренний цикл выполняется от элемента с индексом i+1 до элемента с индексом n-1.
- Если значение элемента с индексом i,j больше значения переменной min, то значение переменной min присваивается значение элемента с индексом i,j.
Значение переменной min присваивается переменной mMinUR.