Заданы матрицы A, B. Сложить эти матрицы

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Button3: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const n=4;
type matr=array[1..n,1..n] of real;
var i,j,p,q:integer; a,b,k:matr; f:textfile; buf:real; c,d:real;
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(f,'matr8G.txt');
reset(f);
for i:=1 to n do
begin
for j:=1 to n do begin
read(f,a[i,j]);
label1.Caption:=label1.Caption+format('%5.2f',[a[i,j]])+' ';
label1.Caption:=label1.Caption+#9;
end;
label1.Caption:=label1.Caption+#13;
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
assignfile(f,'matr81.txt');
reset(f);
for p:=1 to n do
begin
for q:=1 to n do begin
read(f,b[p,q]);
label2.Caption:=label2.Caption+format('%5.2f',[b[p,q]])+' ';
label2.Caption:=label2.Caption+#9;
end;
label2.Caption:=label2.Caption+#13;
end;
end;
 
function Vol1(var z:matr):real;
var i,j:integer; puf,buf:real;
begin
for i:=1 to 3 do
    for j:=i+1 to 4 do
        if z[j]<z[i] then
           begin
                buf:=z[i];
                z[i]:=z[j];
                z[j]:=buf;
           end;
           puf:=z[j];
end;
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
k[i,j]:=puf(a)
For i:=1 to n do
begin
For j:=1 to n do
begin
label3.Caption:=label3.Caption+format('%5.2f',[])+' ';
label3.Caption:=label3.Caption+#9;
end;
label3.Caption:=label3.Caption+#13;
end;
end;
 
end.