Вычислить значение выражения и записать это значение в файл

program Zadanie219project1;
const
  filename = 'aaa.txt';
 
function b(x,y: integer): real;
var
  i,j: integer;
  a: real;
begin
  b:= 1;
  for i:= 1 to x do
    begin
      a:= 1;
      for j:= 1 to y do
        a:= a*y;
    end;
  b:= b*a;
end;
 
var
  z: real;  {Переменная для хранения значения результата}
  m,n: integer;  { Переменные для хранения значений аргументов}
  s: string;  { Переменная для хранения строковой информации}
  f: Text;    { Файловая переменная}
begin
  write('Введите значение аргумента m: ');
  Readln(m);
  write('Введите значение аргумента n: ');
  Readln(n);
  z:= b(2*m,m*m) + 3*b(m*n,2*n) - b(2*n,m);
  str(z:0:0,s);
  s:= 'Результат вычислений: ' + s;
  writeln(s);
  assign(f,filename);
  Rewrite(f);
  Writeln(f,s);
  Close(f);
  writeln('Информация успешно записана в файл "',filename,'".');
  Readln;
end.

function b(x,y: integer): real;
var
  i: integer;
  a: real;
begin
  a:=1;
  for i:= 1 to x*(x+1) div 2 do a:=a*y;
  b:=a
end;