Как результат функции и процедуры вывести в отдельный файл?

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; 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 Amount: Matr; n, m: byte; f: text): real;
 
begin
  
  var min := Amount[1, 2];
  for var i: byte := 1 to n do 
  
  begin
  
    for var j: byte := i + 1 to m do  
    begin
      if min > Amount[i, j] then
       min := Amount[i,j];
    end;
   
  end;
  diagonal := min;
  
  Assign(f, 'result.txt');
  Rewrite(f);
  Writeln(f, 'Минимальный элемент над главной диагональю = ', min);
  close(f);
  
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(Amount, n, m, f);
  
end.