Не получается задание с целочисленной матрицей

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <vcl.h>
#include <stdlib.h>
#include <conio.h>
#include<iostream.h>
#include <stdio.h>
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------Выбор порядка матрицы
 
void __fastcall TForm1::CSpinEdit1Change(TObject *Sender)
{
StringGrid1->ColCount = CSpinEdit1->Value;
StringGrid1->RowCount = CSpinEdit1->Value;
}
//---------------------------------------------------Рандомное заполнение
void __fastcall TForm1::Button1Click(TObject *Sender)
{
randomize;
for(int i=0;i<StringGrid1->ColCount;i++){
for(int j=0;j<StringGrid1->RowCount;j++){
 StringGrid1->Cells[i][j] = StrToInt(rand() % 9 +1);
}}};
//-----------------------------------------------------Произведение
void __fastcall TForm1::Button2Click(TObject *Sender)
 {  int i, j, row, col, pr, a, r;
    int mas[50][50];
    row = StringGrid1->RowCount;
    col = StringGrid1->ColCount;
    for (i = 0; i < row; i++)
    for (j = 0; j < col; j++)
    {
    mas[i][j] = StrToInt(StringGrid1->Cells[j][i]);
    }
    pr = 1;
    for (i = 0; i < row; i++)
    {
    for (j = 0; j < col; j++)
    {
    if (mas[i][j]%3!=0)
    {
    pr = pr * mas[i][j];
 
    }
    else if (j++);
    {
      Edit1->Text = ("Ïðîèçâåäåíèå ðàâíî =<" +IntToStr(pr))+">";;
    }
}}}
 
//----------------------------------------------------сортировка
void __fastcall TForm1::Button3Click(TObject *Sender)
{
int i,j, mas[50][50];
AnsiString temp;
   for (j=0; j<9; j++) // init
 
  for (i=0; i<9; i++) // sort
    for (j=0; j<9; j++)
      if(StringGrid1->Cells[j][0]<StringGrid1->Cells[j+1][0])
      {
      temp =  StringGrid1->Cells[j][0];
      StringGrid1->Cells[j][0] = StringGrid1->Cells[j+1][0];
      StringGrid1->Cells[j+1][0] = temp;
      }
  for (i = 0;StringGrid1->ColCount; i++)
  for (j = 0;StringGrid1->RowCount; j++)
StringGrid2->Cells[i][j]=IntToStr(mas[i][j]);
}
//---------------------------------------------------------------------------