Подсчитать сумму элементов матрицы, определить максимальный и минимальный элементы

var
  Form1: TForm1;
   m,n,i,j:integer;
mas: array of array of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button3Click(Sender: TObject);
begin
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,sum,min,max:integer;
begin
sum:=0;
setlength(mas,n,m);
 for i:=0 to m-1 do
for j:=0 to n-1 do begin
randomize;
mas[i,j]:=random(10)+1;
StringGrid1.Cells[j,i]:=IntToStr(mas[i,j]);
sum:=sum+mas[i,j];
end;
min:=mas[0,0];
max:=mas[0,0];
 for i:=0 to m-1 do
for j:=0 to n-1 do begin
if(min>mas[i,j]) then min:=mas[i,j];
if(max<mas[i,j]) then max:=mas[i,j];
end;
Label4.Caption:=IntToStr(sum);
Label6.Caption:=IntToStr(min);
Label8.Caption:=IntToStr(max);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
i,j,sum,min,max:integer;
begin
sum:=0;
setlength(mas,n,m);
 for i:=0 to m-1 do
for j:=0 to n-1 do begin
mas[i,j]:=StrToInt(StringGrid1.Cells[j,i]);
sum:=sum+mas[i,j];
end;
min:=mas[0,0];
max:=mas[0,0];
 for i:=0 to m-1 do
for j:=0 to n-1 do begin
if(min>mas[i,j]) then min:=mas[i,j];
if(max<mas[i,j]) then max:=mas[i,j];
end;
Label4.Caption:=IntToStr(sum);
Label6.Caption:=IntToStr(min);
Label8.Caption:=IntToStr(max);
end;