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

[DirtyBASS]

Всем специалистам привет.
задание - написать функцию, которая cдвигает циклически столбцы матрицы так, что первый столбец переходит на место второго, второй – на место третьего и т. д., а последний столбец перемещается на место первого.
вот код для аналогичного задания, только со строками. Что нужно поменять в данном коде, чтобы функция циклически сдвигала столбцы?

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;
}

и что тут нужно исправить в функции, которая находится в файле .txt?
код функции

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;
                        }
                }
        }
}

[SuperVisor]

Что сложного в том, чтобы поменять элементы j и i ????!!!!

[Consol]

по моему тебе легче написать свою