Минимальный элемент над главной диагональю матрицы

program lr5;
 
type
  massif = array [1..4, 1..4] of real;
 
var
  matrixC, matrixD,r: massif;
  x, qD: real;
  input: text;
 
 
function GetMatrix(n: byte): massif;
var
  m: massif;
  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 c, d: massif; var sum: massif);//Сложение матриц
begin
  for var i := 1 to 4 do 
  begin
    for var j := 1 to 4 do
    begin
    sum[i, j] := c[i, j] + d[i, j];
             write('',sum[i,j]:12:5);
      end;
           writeln;
      end;
end;
 
function mMinURCD(const c, d: massif; var qD: real): Real;//Мин. элемент над главной диагональю
var
  minC, minD: Real;
begin
  minC := c[1,2];
  minD := d[1,2];
  
  for var i := 1 to 4 do 
  begin
    for var j := i+1 to 4 do 
      if minC > c[i,j] then
      begin
        minC := c[i,j];
        if minD > d[i,j] then
        minD := d[i,j];
      end;
  end;
  mMinURCD := minC;
  qD := minD;
end;
 
begin
  
  writeln('Введите матрицу 4X4');
  for var i: byte := 1 to 4 do
  begin
    for var j: byte := 1 to 4 do
    begin
      x := 0;
      write('Значение для элемента[', i, '][', j, '] = ');
      read(x);
      matrixC[i][j] := x;
    end;
  end;
  
  writeln;
  
  writeln('Матрица C =');
  for var i: byte := 1 to 4 do
  begin
    for var j: byte := 1 to 4 do
    begin
      write('', matrixC[i][j]:12:5);
    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:5);
    WriteLn;
  end;
  
  writeln;
  
  writeln('Сумма C + D =');
  mSum(matrixC, matrixD, r);
  
  writeln;
  
  writeln('Min над C: ',mMinURCD(matrixC, matrixD, qD):0:5,' и D: ',qD);
    writeln;
    
  WriteLn('Результаты сохранены в файл "result.txt"');
  Assign(input, 'result.txt'); 
  Rewrite(input);
  writeln(input,'Min над C: ',mMinURCD(matrixC, matrixD, qD):0:5,' и D: ',qD);
 writeln(input);
 writeln(input,'Сумма C+D = ');
 for var i := 1 to 4 do 
  begin
    for var j := 1 to 4 do
    begin
             write(input,'',r[i,j]:12:5);
      end;
           writeln(input);
      end;
  Close(input);
end.

function mMinURCD(const c, d: massif; var qD: real): Real;//Мин. элемент над главной диагональю
var
  minC, minD: Real;
begin
  minC := c[1,2];
  minD := d[1,2];
  for var i := 1 to 4 do 
  for var j := i+1 to 4 do 
   begin
    if minC > c[i,j] then  minC := c[i,j];
    if minD > d[i,j] then  minD := d[i,j];
   end;
  mMinURCD := minC;
  qD := minD;
end;

function mMinUR(const c: massif): Real;//Мин. элемент над главной диагональю
var
  min: Real;
begin
  min := c[1,2];
  for var i := 1 to 4-1 do 
    for var j := i+1 to 4 do 
      if min > c[i,j] then  min := c[i,j];
  mMinUR := min;
end;
 
...
  WriteLn('Над гл.диагональю: min(c) = ',mMinUR(c),'  min(d) = ',mMinUR(d));