можете объяснить что выполняет каждая строка

//---------------------------------------------------------------------------
__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::Button2Click(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=0; i<m; i++) {
                StringGrid2->Cells[i][0] = IntToStr( *(a + i));
        }
}
//--------------------------------------------------------------------------
 
void __fastcall TForm1::StringGrid1Click(TObject *Sender)
{
 
}
//---------------------------------------------------------------------------