Ошибка при выполнении

c[i][j]+=a[i][k]*b[k][j];

int a1,a2;
int b1,b2;
int c1,c2;
void __fastcall TForm2::Button2Click(TObject *Sender)
{ Button3->Visible=true;
Edit3->Text=Edit2->Text; Edit5->Text=Edit1->Text; Edit6->Text=Edit4->Text;
 
StringGrid1->Visible=true;
StringGrid2->Visible=true;
StringGrid3->Visible=true;
 
a1=Edit1->Text.ToInt();a2=Edit2->Text.ToInt();
b1=Edit3->Text.ToInt();b2=Edit4->Text.ToInt();
c1=Edit5->Text.ToInt();c2=Edit6->Text.ToInt();
 
 
StringGrid1->ColCount=Edit1->Text.ToInt();  StringGrid1->RowCount=Edit2->Text.ToInt();
StringGrid2->ColCount=Edit3->Text.ToInt();  StringGrid2->RowCount=Edit4->Text.ToInt();
StringGrid3->ColCount=Edit5->Text.ToInt();  StringGrid3->RowCount=Edit6->Text.ToInt();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCloseQuery(TObject *Sender, bool &CanClose)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button3Click(TObject *Sender)
{   int j,mull; int r,m1,m2;
int a1=Edit1->Text.ToInt(),a2=Edit2->Text.ToInt();
int b1=Edit3->Text.ToInt(),b2=Edit4->Text.ToInt();
int c1=Edit5->Text.ToInt(),c2=Edit6->Text.ToInt();
 
 
 
 
int **a = new int*[a1]; for (int i=0; i<a1; i++) { a[i] = new int[a2];}
int **b = new int*[b1]; for (int i=0; i<b1; i++) { b[i] = new int[b2];}
 
 
mull=a2;
 
 for (int i = 0; i < a1; i++) {
 for (j = 0; j < a2; j++) {
 if (StringGrid1->Cells[i][j]=="") {StringGrid1->Cells[i][j]=0;}
 a[i][j]=StringGrid1->Cells[i][j].ToInt();}}
 
 for (int i = 0; i < b1; i++) {
 for (j = 0; j < b2; j++) {
 if (StringGrid2->Cells[i][j]=="") {StringGrid2->Cells[i][j]=0;}
 b[i][j]=StringGrid2->Cells[i][j].ToInt();}}
 
 
 
 for (int i=0;i<a1;i++)
  {
     for (j=0;j<b2;j++)
     {
        r=0; for (int k = 0; k < a2; i++)
               {
               m2=b[k][j];
               m1=a[i][k];
 
                r+=m1*m2;
               }
        StringGrid3->Cells[i][j]=r;
     }
  }
 
 
for (int i=0; i<a1; i++) delete [] a[i];
delete [] b;
for (int i=0; i<b1; i++) delete [] b[i];
delete [] b;
}

 m2=b[k][j];
m1=a[i][k];
r+=m1*m2;

m1=a[i][k];

int a1,a2;
int b1,b2;
int c1,c2;
int j,mull;
int r,m1,m2;
int **a
int **b

int  row_count_A;
int  col_count_A;
 
int  row_count_B;
int  col_count_B;