умножение матриц

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

помогите пожалуйста, у меня задача: умножить две матрицы разного порядка, данные в матрицу вводятся вручную в StrinGrid, в принципе вопрос в другом, где у меня ошибка, почему при перемножении получается чушь? (я понимаю, что это где-то я неправильно пишу, но как правильно):

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.