Умножение матриц в С++ Rad XE3

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;
  
  StringGrid1->RowCount=Edit1->Text.ToInt();
  StringGrid1->ColCount=Edit2->Text.ToInt();
  StringGrid2->RowCount=Edit3->Text.ToInt();
  StringGrid2->ColCount=Edit4->Text.ToInt();
  StringGrid3->RowCount=Edit5->Text.ToInt();
  StringGrid3->ColCount=Edit6->Text.ToInt();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button3Click(TObject *Sender)
{
  int i,j,r;
  int a1=Edit1->Text.ToInt(),
      a2=Edit2->Text.ToInt(),
      b1=Edit3->Text.ToInt(),
      b2=Edit4->Text.ToInt();
  int c1=a1,c2=b2;
  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];
  }
  int **c = new int*[c1];
  for (int i=0; i <c1; ++i) {
    c[i] = new int[c2];
  }
  for (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 (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 (i = 0; i < c1; i++) {
    for (j=0;j<c2;j++) {
      r=0;
      for (int k = 0; k < a2; i++) {
        r+=a[i][k]*b[k][j];
      }
      StringGrid3->Cells[i][j]=r;
    }
  }
}

void __fastcall TForm2::Button2Click(TObject *Sender)
{
  Button3->Visible=true;
  Edit3->Text=Edit2->Text; // Матрица 2 будет соответствовавший
                           // правилам умножения матриц (количество столбцов
                           // М1= рядков М2)
  Edit5->Text=Edit1->Text;
  Edit6->Text=Edit4->Text; // Размер матрицы вывода результата в соответствии
                           // с размерами введенных матриц
  StringGrid1->Visible=true; // Матрица 1 - 1 элемент умножения
  StringGrid2->Visible=true; // Матрица 2 - 2 элемент умножения
  StringGrid3->Visible=true; // Матрица 3 - Результат
  StringGrid1->RowCount=Edit1->Text.ToInt();
  StringGrid1->ColCount=Edit2->Text.ToInt(); // Выставление размера Матрицы 1 в СтринГриде
  StringGrid2->RowCount=Edit3->Text.ToInt();
  StringGrid2->ColCount=Edit4->Text.ToInt(); // Выставление размера Матрицы 2 в СтринГриде
  StringGrid3->RowCount=Edit5->Text.ToInt();
  StringGrid3->ColCount=Edit6->Text.ToInt(); // Выставление размера Матрицы 3 в СтринГриде
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button3Click(TObject *Sender)
{
  int i,j,r;
  int a1=Edit1->Text.ToInt(),
      a2=Edit2->Text.ToInt(),
      b1=Edit3->Text.ToInt(),
      b2=Edit4->Text.ToInt(); // назначение переменных
                              // с размером матриц для манипуляции с массивами
  int c1=a1,c2=b2;
  int **a = new int*[a1];
  for (int i=0; i <a1; ++i) {
    a[i] = new int[a2];
  } //Создание динамического массива с размером Матрицы1
  int **b = new int*[b1];
  for (int i=0; i <b1; ++i) {
    b[i] = new int[b2];
  } //Создание динамического массива с размером Матрицы1
  int **c = new int*[c1];
  for (int i=0; i <c1; ++i) {
    c[i] = new int[c2];
  } //Создание динамического массива с размером Матрицы1
 
  for (i = 0; i < a1; i++) {
    for (j = 0; j < a2; j++) {
      if (StringGrid1->Cells[i][j]=="") { // Перенос данных с СтринГрид1 в Массив Матрицы1
        StringGrid1->Cells[i][j]=0;
      }
      a[i][j]=StringGrid1->Cells[i][j].ToInt();
    }
  }    
  for (i = 0; i < b1; i++) {
    for (j = 0; j < b2; j++) {
      if (StringGrid2->Cells[i][j]=="") { // Перенос данных с СтринГрид2 в Массив Матрицы 2
        StringGrid2->Cells[i][j]=0;
      }
      b[i][j]=StringGrid2->Cells[i][j].ToInt();
    }
  }
  for (i = 0; i < c1; i++) {
    for (j=0;j<c2;j++) {
      r=0;
      for (int k = 0; k < a2; i++) {
        r+=a[i][k]*b[k][j]; // Расчет Элементов матрицы
      }
      StringGrid3->Cells[i][j]=r; // Вывод Матрицы3 - Результата в СтринГрид3
    }
  }

StringGrid1->Cells[j][i]=mas[i][j]