Циклический сдвиг элементов прямоугольной матрицы на n элементов вправо

TForm1 *Form1;
mas[50][50];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{ int i,j;
i=StrToInt(Edit1->Text);
j=StrToInt(Edit2->Text);
Form1->StringGrid1->RowCount=i;
Form1->StringGrid1->ColCount=j;
Form1->StringGrid2->RowCount=i;
Form1->StringGrid2->ColCount=j;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)//задание матрицы
{ int i,j;
for(i=0;i<StringGrid1->ColCount;i++)
{for(j=0;j<StringGrid1->RowCount;j++)
{mas[i][j]=random(50)-17;
StringGrid1->Cells[i][j]=IntToStr(mas[i][j]);
 
}}}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)//циклическтй сдвиг
{
int i,j,a,n,t;
n=StrToInt(Edit3->Text);
for(i=0;j<StringGrid2->ColCount;i++)
{for(j=0;j<n;j++)
{t=mas[i][j];
mas[i][j]=mas[i][n];
mas[i][n]=t;}
n=n+1;
StringGrid2->Cells[i][j]=IntToStr(mas[i][j]);
} }
//---------------------------------------------------------------------------

for(i=0;j<StringGrid2->ColCount;i++)

StringGrid2->Cells[i][j]=IntToStr(mas[i][j]);

void __fastcall TForm1::Button3Click(TObject *Sender)//циклическтй сдвиг
{
 int i,j,a,n,t;
 n=StrToInt(Edit3->Text);
 int newx;
 for(i=0;i<StringGrid2->RowCount;i++)
 for(j=0;j<StringGrid2->ColCount;j++)
 {
  newx=(i+n)%StringGrid2->RowCount;
  StringGrid2->Cells[newx][j]=IntToStr(mas[i][j]);
 }
}