Двумерные массивы - сложение, мин. элемент над главной диагональю

program lr5;
 
type
  Matr = array [1..10, 1..15] of real;
 
var
  n, m: byte;
  A, D, Amount: Matr;
  f: text;
 
//Сложение матриц
procedure plus(var A, D, Amount: Matr; var n, m: byte);
begin
  
  writeln('Сумма матриц:');
  for var i: byte := 1 to n do 
  begin
    for j: byte := 1 to m do  
    begin
      Amount[i, j] := A[i, j] + D[i, j];
      write(Amount[i, j]:12:3);
    end;
    writeln;
  end;
  
end;
 
//Нахождение мин. элемента над главной диагональю
function diagonal(var A, D, Amount: Matr; var n, m: byte): Matr;
 
begin
  
  var min := Amount[1, 2];
  for var i: byte := 1 to n - 1 do 
  begin
    for var j: byte := i + 1 to n do  
    begin
      Amount[i, j] := A[i, j] + D[i, j];
      if Amount[i, j] < min then
        min := Amount[i, j];
      writeln('Минимальный элемент выше главной = ', min);
    end;
  end;
  
end;
 
begin
  
  //Ввод матрицы с клавиатуры
  write('Введите количество строк (не более 10), n='); 
  read(n); 
  write('Введите количество столбцов (не более 15), m='); 
  read(m); 
  writeln('Введите элементы матрицы'); 
  for var i: byte := 1 to n do  
    for var j: byte := 1 to m do  
      read(A[i, j]); { ввод элементов по строкам } 
  writeln('Матрица с клавиатуры:'); 
  for var i: byte := 1 to n do 
  begin
    for var j: byte := 1 to m do  
      write(A[i, j]:12:3);  
    writeln;  
  end;
  
  //Чтение матрицы из файла - matrix.txt
  begin
    
    
    Assign(f, 'matrix.txt');
    Reset(f);
    
    for var i: byte := 1 to n do 
    begin
      for var j: byte := 1 to m do  
        read(f, D[i, j]); 
    end;
    
    writeln('Матрица из файла:');
    
    for var i: byte := 1 to n do 
    begin
      for var j: byte := 1 to m do  
        write(D[i, j]:12:3);  
      writeln; 
    end;
    
    close(f);
    
  end;
  
  plus(A, D, Amount, n, m);
  
  diagonal(A, D, Amount, n, m);
  
  
  
end.