Исправление ошибок - C++ Builder - Ответ 4143169

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <stdlib.h>
#include <math.h>
#pragma hdrstop
void array1(int row,int **mass1)
{int i,j;
for(i=0;i<row;i++)
   {for(j=0;j<row;j++)
        {mass1[i][j]=random(30)-(10);}
}
void array2(int row,int **mass2)
{int i,j;
for(i=0;i<row;i++)
   {for(j=0;j<row;j++)
        {mass2[i][j]=random(40)-(10);}
}}
void array3(int row,int **mass3)
{int i,j;
for(i=0;i<row;i++)
   {for(j=0;j<row;j++)
        {mass3[i][j]=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::bRun2Click(TObject *Sender)
{
int n,i,j;
int **arr1;
n=StrToInt(eRow->Text);
sg1->RowCount=n;
sg1->ColCount=n;
arr1=new int*[n];
for(int i=0;i<n;i++)
{arr1[i]=new int[n];}
array1(n,arr1);
for(i=0;i<n;i++)
   {for(j=0;j<n;j++)
       {sg1->Cells[i][j]=IntToStr(arr1[i][j]);}
       }
delete []arr1;
}
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::bRun1Click(TObject *Sender)
{   int m,i,j;
int **arr2;
n=StrToInt(eRow->Text);
sg2->RowCount=m;
sg2->ColCount=m;
arr2=new int*[m];
for(int i=0;i<m;i++)
{arr2[i]=new int[m];}
array2(m,arr2);
for(i=0;i<m;i++)
   {for(j=0;j<m;j++)
       {sg2->Cells[i][j]=IntToStr(arr2[i][j]);}
       }
delete []arr2;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::bRunClick(TObject *Sender)
{
int k,i,j;
int **arr3;
n=StrToInt(eRow->Text);
sg1->RowCount=k;
sg1->ColCount=k;
arr3=new int*[k];
for(int i=0;i<k;i++)
{arr3[i]=new int[k];}
array3(k,arr3);
for(i=0;i<k;i++)
   {for(j=0;j<k;j++)
       {sg3->Cells[i][j]=IntToStr(arr3[i][j]);}
       }
delete []arr3;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::bExitClick(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------