Вызвать функцию, которая заполнит два массива случайными числами

void ArrayRandom(a, H, W)
{
for(int y=0; y<H; y++)
for(int x=0; x<W; x++)
a[y][x]=random();
}
int H=StrToInt(EditH->Text);
int W=StrToInt(EditW->Text);
int** a=new int*[H];
int** b=new int*[H];
int** c=new int*[H];
for(int y=0; y<H; y++)
{
a[y]=new int[W];
b[y]=new int[W];
c[y]=new int[W];
}
ArrayRandom(b, H, W);
ArrayRandom(c, H, W);

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
double ser(int n,int m,int ** c)
{  int s=0,sred, i, j;
   for(i=0;i<n;i++)
      for(j=0;j<m;j++)
         s+=c[i][j];
   return (double) s/(n*m);
}
double ser1(int n,int m,int ** b)
{  int s=0,sred, i, j;
   for(i=0;i<n;i++)
      for(j=0;j<m;j++)
         s+=b[i][j];
   return (double) s/(n*m);
}
double ser2(int n,int m,int ** p)
{  int s=0,sred, i, j;
   for(i=0;i<n;i++)
      for(j=0;j<m;j++)
         s+=p[i][j];
   return (double) s/(n*m);
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int **a, i;
int n=StrToInt(Edit1->Text);
int m=StrToInt(Edit2->Text);
  sg1->ColCount=n;
  sg1->RowCount=m;
  sg2->ColCount=n;
  sg2->RowCount=m;
 
a=new int *[n];
for(i=0;i<n;i++)
  a[i]=new int [m];
double s=ser1(n,m,a);
for(i=0;i<n;i++)
delete [] a[i];
delete []a;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------