Сформировать одномерный массив, как сумму элементов столбцов матрицы (не работает на RAD 2010)

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <iostream>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
const n = 4;
const m = 5;
 
int x[n][m]; int i=0, j=0;
 
int* get (int* x, int m, int n)
{
        int* a = new int[m];
        int sum = 0;
 
        for (i=0; i < m; i++) {
                sum = 0;
                for (j=0; j < n; j++)
                {
                         sum += *(x + i*m + j);
                }
                *(a + i) = sum;
        }
        return a;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        for (i=0; i < n; i++)
                for (j=0; j < m; j++)
                {
                        x[j][i] = StrToInt(StringGrid1->Cells[j][i]);
                }
 
        int* a = get(&x[0][0], m, n);
 
        for(i=1; i<m; i++) {
                StringGrid2->Cells[i][1] = IntToStr( *(a + i));
        }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid2Click(TObject *Sender)
{
 
}
//---------------------------------------------------------------------------

for(i = 0; i < m; i++)
 StringGrid2->Cells[i][0] = IntToStr( *(a + i));

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  const n = 4, m = 5;
  int x[n][m];
  int a[m] = {0, 0, 0, 0, 0};
  for(int i = 0; i < m; i++)
   {
     for(int j = 0; j < n; j++)
      {
         if(!TryStrToInt(StringGrid1->Cells[i][j], x[j][i]))
          {
            ShowMessage("Не все ячейки таблицы заполнены/заполнены верно!");
            return;
          }
         a[i] += x[j][i];
      }
     StringGrid2->Cells[i][0] = IntToStr(a[i]);
   }
}