Двумерные динамические массивы

#include <vcl.h>
#include <stdlib.h>
#include <math.h>
#pragma hdrstop
void CreateArray(int row,int** mas)
{
int i,j;
for(i=0;i<row;i++)
   {for(j=0;j<row;j++)
        {mas[i][j]=random(30)-(10);}}
}
 
void CreateArray1(int row,int* mas)
{
int i,j;
for(i=0;i<row;i++)
        {mas[i]=random(30)-(20);}
}
 
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::bRunClick(TObject *Sender)
{
int sum=0;
int sum2=0;
int n,i,j;
int **arr;
n=StrToInt(eRow->Text);
sg1->RowCount=n;
sg1->ColCount=n;
arr=new int*[n];
for(int i=0;i<n;i++)
{arr[i]=new int[n];}
CreateArray(n,arr);
for(i=0;i<n;i++)
   {for(j=0;j<n;j++)
       {sg1->Cells[i][j]=IntToStr(arr[i][j]);}}
int MinSum=abs(arr[1][0])+abs(arr[0][1]);
for (j=0;j<n;j++)
{for (i=0;i<n;i++)
{if (arr[i][j]<0)
{sum = sum+arr[i][j];}}}
 
lSum->Caption="Сумма элементов положительного столбца:" + IntToStr(sum);
lSum1->Caption="Минимальная сумма элементов параллельной побочной диагонали:" + IntToStr(MinSum);
delete arr[i];
delete []arr;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bExitClick(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bRun1Click(TObject *Sender)
{
int *arr1;
int m,i;
int pro=1;
int min,max;
int summa=0;
m=StrToInt(eRow1->Text);
sg2->ColCount=m;
arr1=new int[m];
CreateArray1(m,arr1);
for(i=0;i<m;i++)
   {sg2->Cells[i][0]=IntToStr(arr1[i]);}
{for(i=0;i<m;i++)
{if(i%2==0){pro=pro*arr1[i];}}}
Label1->Caption="Произведение элементов массива с чётными номерами:" + IntToStr(pro);
for(i=0;i<m;i++)
{if(arr1[i]==0)
 {min=i;break;}
}
for(i=0;i<m;i++)
{if(arr1[i]==0)
 { max=i;}
}
for(i=min+1;i<max;i++)
{summa=arr1[i]+summa;}
Label2->Caption="Сумма элементов массива, расположенных между первым и последним нулевыми элементами:" + IntToStr(summa);
delete []arr1;
}
//---------------------------------------------------------------------------

for (i=0;i<n;i++) delete arr[i];