Функция для перемножения двумерных массивов

    Type
    Ts = array of array of  real;
...
 
   function sd (G1: TS; G2: Ts): Ts;
       begin
     SetLength(Result,5,5);
     SetLength(G1,5,5);
     SetLength(G2,5,5);
        for i := 0 to 5 do
        for j := 0 to 5 do
        for k := 0 to 5 do
       Result[i,j]:=Result[i,j]+G1[k,i]+G2[j,k];
       end;
...
 
         for i := 0 to 5 do
         for j := 0 to 5 do
        stringgrid2.Cells[i,j]:=floattostr(sd(G[i,j],M0[i,j]));
...

stringgrid2.Cells[i,j]:=floattostr(sd(G[i,j],M0[i,j]));

const n=5;
Type  Ts = array of array of  real;
function sd (G1,G2:TS): Ts;
var i,j,k:integer;
begin
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  result[i,j]:=0;
  for k:=0 to n-1 do
  result[i,j]:=result[i,j]+G1[i,k]*G2[k,j];
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:TS;
    i,j:integer;
begin
randomize;
SetLength(a,n,n);
SetLength(b,n,n);
SetLength(c,n,n);
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=1+5*random;
  b[i,j]:=1+5*random;
  StringGrid1.Cells[j,i]:=formatfloat('0.00',a[i,j]);
  StringGrid2.Cells[j,i]:=formatfloat('0.00',b[i,j]);
 end;
c:=sd(a,b);
for i:=0 to n-1 do
for j:=0 to n-1 do
StringGrid3.Cells[j,i]:=formatfloat('0.00',c[i,j]);
end;