не могу разобраться с StringGrid

[затерявшисьвдебрях]

надо перемножить две матрицы, но они перемножаются неверно:

procedure TForm1.Button1Click(Sender: TObject);

begin

   StringGrid1.RowCount:=StrToInt(Edit1.Text)+1 ;
   StringGrid1.ColCount:= StrToInt(Edit1.Text)+1;
   StringGrid1.Options := StringGrid1.Options + [goEditing];
   StringGrid2.ColCount:=StringGrid1.ColCount;
   StringGrid2.RowCount:=StringGrid1.RowCount;
   StringGrid2.Options := StringGrid2.Options + [goEditing];
      end;


procedure TForm1.Button2Click(Sender: TObject);
      var i,j,k,d,n,m:integer;
      var mas: array [1..50] of integer;
          
            begin
             StringGrid3.RowCount:=StringGrid2.RowCount;
            StringGrid3.ColCount:=StringGrid2.ColCount;
                         for i := 0 to stringGrid1.RowCount-1 do
             for j := 0 to stringGrid2.ColCount-1  do
              begin
             d:=0;
              for k := 0 to stringGrid1.RowCount-1 do
               begin
                                    d:=mas[i]*mas[j];
                 StringGrid3.Cells[j,i]:=inttostr(d);
                 end;
            end;
           end;
             
             end.

испарвьте, где ошибка?

[mss]

Ты не поверишь - StringGrid здесь ВООБЩЕ ни причем.
У тебя бредоносное представление о самом алгоритме умножения матриц.

[mflance]

Вот правильный код

procedure TForm1.Button1Click(Sender: TObject);
begin
   StringGrid1.RowCount:=StrToInt(Edit1.Text);
   StringGrid1.ColCount:= StrToInt(Edit1.Text);
   StringGrid1.Options := StringGrid1.Options + [goEditing];
   StringGrid2.ColCount:=StringGrid1.ColCount;
   StringGrid2.RowCount:=StringGrid1.RowCount;
   StringGrid2.Options := StringGrid2.Options + [goEditing];
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i,j :integer;
begin
  StringGrid3.RowCount := StringGrid2.RowCount;
  stringgrid3.ColCount:=stringgrid3.ColCount;
  for i := 0 to stringgrid2.RowCount-1 do
  begin
    for j := 0 to stringgrid2.RowCount-1 do
    begin
      stringgrid3.cells[i,j]:=inttostr(strtoint(stringgrid1.cells[i,j])*strtoint(stringgrid2.cells[i,j]));
    end;
  end;
end;