Исправить код

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    int **matrix = new int *[R_Count];
    for (int i=0; i<R_Count; i++)
    {
        matrix [i]=new int [R_Count];
    }
    for(i=0; i<R_Count; i++)
    {
        for(j=0; j<R_Count; j++)
        {
            matrix[i][j]=StrToInt(SG1[j][i]);
        }
    }
    change_matrix(matrix, R_Count);
    for(i=0; i<R_Count; i++)
    {
        for(j=0; j<R_Count; j++)
        {
            SG1[j][i]=StrToInt(matrix[i][j]);
        }
    }
    for (i=0; i<R_Count; i++)
    {
        delete [] matrix [i];
    }
    delete [] matrix;
}

void change_matrix(int** matr, int row)
{
    int temp,t,i,j;
    for (i=0;i<1;i++)
    {
        for (j=0; j<row; j++)
        {
            for(t=row-1; t>0; t--)
            {
                temp=matr[t][j];
                matr[t][j]=matr[t-1][j];
                matr[t-1][j]=temp;
            }
        }
    }
}

    int **mas, d;
 
    mas = new int *[5];
 
    for ( int i = 0; i < 5; i++ )
        mas[i] = new int [5];
 
    // ввод
    for ( int i = 0; i < 5; i++ )
        for ( int j = 0; j < 5; j++ )
            mas[i][j] = StringGrid1->Cells[j][i].ToInt();
 
    // обмен
    for ( int i = 0; i < 5; i++ )
        for ( int j = 0; j < 5; j++ )
        {
            d = mas[j][i];
            mas[j][i] = mas[j][4];
            mas[j][4] = d;
        }
 
    // вывод
    for ( int i = 0; i < 5; i++ )
        for ( int j = 0; j < 5; j++ )
            StringGrid1->Cells[j][i] = String(mas[i][j]);

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
int **x,n;
 
void func(int n,int **x)
{}
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
n=StrToInt(Edit1->Text);
 
x=new int *[n];
for(int i=0;i<n;i++) x[i]=new int[n];
StringGrid1->ColCount=n;
StringGrid1->RowCount=n;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int **mas, d;
 
    mas = new int *[n];
 
    for ( int i = 0; i < n; i++ )
        mas[i] = new int [n];
 
    // Ввод
    for ( int i = 0; i < n; i++ )
        for ( int j = 0; j < n; j++ )
            mas[i][j] = StringGrid1->Cells[j][i].ToInt();
 
    // Обмен
    for ( int i = 0; i < n; i++ )
        for ( int j = 0; j < n; j++ )
        {
            d = mas[i][j];
            mas[i][j] = mas[n-1][j];
            mas[n-1][j] = d;
        }
 
    // Вывод
    for ( int i = 0; i < n; i++ )
        for ( int j = 0; j < n; j++ )
            StringGrid1->Cells[j][i] = String(mas[i][j]);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Close ();
}
//---------------------------------------------------------------------------