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

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;

function mMinUR(const a: TMatrix; m, n: Integer): Real;

type TMatrix = array of array of Real;
 
function mMinUR(const a: TMatrix; m, n: Integer): Real;
var min: Real; i, j: Integer;
begin
  min:=a[0,1];
  for i:=0 to m-2 do
    for j:=i+1 to n-1 do
      if min>a[i,j] then min:=a[i,j];
  mMinUR:=min;
end;
 
procedure mGen(var a: TMatrix; m, n: Integer);
var i, j: Integer;
begin
  SetLength(a,m,n);
  for i:=0 to m-1 do begin
    for j:=0 to n-1 do begin
      a[i,j]:=-50+100*Random;
      Write(' ',a[i,j]:5:1);
    end; WriteLn;
  end;
end;
 
var a, b: TMatrix;
begin
  Randomize;
  WriteLn('A ='); mGen(a,4,4);
  WriteLn('B ='); mGen(b,4,4);
  WriteLn('min_UR(A) = ',mMinUR(a,4,4):5:1,
         ' min_UR(B) = ',mMinUR(b,4,4):5:1);
  Write('Press ENTER...'); ReadLn;
end.

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

program lr5;
 
type
  TMatrix = array of array of real;
  stat = array [1..4,1..4] of real;
var
  matrixC: TMatrix;
  matrixD: stat;
  m, n: byte;
  x: real;
  
  
  function GetMatrix(n : byte) : stat;
var
  m : stat;
  f : Text;
  s : String;
  row, col : byte;
begin
  row := 0; col := 0;
  Assign(f, 'matrix.txt'); Reset(f);
  while Not EOF(f) and (n > 0) do
    begin
      if row = 0 then
        begin ReadLn(f, s); inc(row); end
      else
        begin
          inc(col); Read(f, m[row, col]);
          if col = 4 then
            begin
              ReadLn(f); col := 0; inc(row);
              if row > 4 then
                begin row := 0; dec(n); end;
            end;
        end;
    end;
  Close(f);
  GetMatrix := m;
end;
 
{procedure mSum(const a, b: TMatrix; var r: TMatrix; m, n: byte);//Сложение матриц
begin
  for var i := 1 to m do for var j := 1 to n do r[i, j] := a[i, j] + b[i, j];
end;}
 
function mMinUR(var a: TMatrix; m, n: byte): Real;//Мин. элемент над главной диагональю
var
  min: Real;
begin
  min := a[0, 1];
  for var i := 0 to m-2 do 
  begin
  for var j := i+1 to n-1 do if min > a[i, j] then
  begin
  min := a[i, j];
  mMinUR := min;
  end;
  end;
end;
 
begin
  
  writeln('Введите кол. строк');
  read(m);
  writeln('Введите кол. столбцов');
  read(n);
  SetLength(matrixC, m);
  for var i: byte := 0 to m - 1 do
  begin
    SetLength(matrixC[i], n);
  end;
  
  
  for var i: byte := 0 to m - 1 do
  begin
    for var j: byte := 0 to n - 1 do
    begin
      x := 0;
      write('Значение для элемента[',i,'][',j,'] = ');
      read(x);
      matrixC[i][j] := x;
    end;
  end;
  
   writeln;
  
  writeln('Матрица C =');
  for var i: byte := 0 to m - 1 do
  begin
    for var j: byte := 0 to n - 1 do
    begin
      write('', matrixC[i][j]:12:3);
    end;
    writeln;
  end;
  
  writeln;
  
  matrixD := GetMatrix(4); 
  WriteLn('Матрица D =');
  for var row: byte := 1 to 4 do
    begin
      for var col: byte := 1 to 4 do Write(matrixD[row, col]:12:3);
      WriteLn;
    end;
  
  {Assign(input, 'matrix.txt'); Reset(input);
  mRead(b, m, n);
  Close(input);
  
  mSum(a, b, r, m, n);
  
  mWrite('C =', a, m, n);
  mWrite('D =', b, m, n);
  mWrite('C+D =', r, m, n);}
 WriteLn('Min над главной диагональю: ', mMinUR(matrixC, m, n):0:3);
  {
  WriteLn('Результаты сохранены в файл "result.txt"');
  Assign(output, 'result.txt'); Rewrite(output);
  mWrite('C+D =', r, m, n);
  WriteLn('Min над главной диагональю: ', mMinUR(r, m, n):0:WD);
  Close(output);}
end.

function mMinUR(var a: TMatrix; m, n: byte): Real;//Мин. элемент над главной диагональю
var
  min: Real;
begin
  min := a[0, 1];
  for var i := 0 to m-2 do 
  begin
  for var j := i+1 to n-1 do if min > a[i, j] then
  begin
  min := a[i, j];
 mMinUR := min;
  end;
  end;
end;

function mMinUR(var a: TMatrix; m, n: byte): Real;//Мин. элемент над главной диагональю
var
  min: Real;
begin
  min := a[0, 1];
  for var i := 0 to m-2 do 
  begin
  for var j := i+1 to n-1 do if min > a[i, j] then
  begin
  min := a[i, j];
  mMinUR := min;
  end;
  end;
mMinUR := min;
end;