Передвинуть элементы, расположенные на периметре матрицы, на одну позицию по ходу часовой стрелки

var
  Form1: TForm1; 
  m,n:byte;
  a:array of array of byte;
implementation
 
{$R *.lfm}
 
{ TForm1 }
//создание матрицы
procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
begin
  val(Edit1.Text,m,i);
  if(i<>0)or(m<2)then
   begin
     showmessage('Введите количество строк целое число >1');
     Edit1.Clear;
     Edit1.Setfocus;
     exit;
   end;
  val(Edit2.Text,n,i);
  if(i<>0)or(n<2)then
   begin
     showmessage('Введите количество столбцов целое число >1');
     Edit1.Clear;
     Edit1.Setfocus;
     exit;
   end;
  Stringgrid1.ColCount:=n;
  Stringgrid1.RowCount:=m;
  Stringgrid2.ColCount:=n;
  Stringgrid2.RowCount:=m;
  Setlength(a,m,n);
  for i:=0 to m-1 do
  for j:=0 to n-1 do
  a[i,j]:=n*i+j+1;
  for i:=0 to m-1 do
  for j:=0 to n-1 do
  Stringgrid1.Cells[j,i]:=Inttostr(a[i,j]);
end;
//сдвиг периметра
procedure TForm1.Button2Click(Sender: TObject);
 var i,j,x:byte;
begin
  x:=a[0,0];
  for i:=0 to m-2 do a[i,0]:=a[i+1,0];
  for j:=0 to n-2 do a[m-1,j]:=a[m-1,j+1];
  for i:=m-1 downto 1 do a[i,n-1]:=a[i-1,n-1];
  for j:=n-1 downto 2 do a[0,j]:=a[0,j-1];
  a[0,1]:=x;
  for i:=0 to m-1 do
  for j:=0 to n-1 do
  Stringgrid2.Cells[j,i]:=Inttostr(a[i,j]);
end;

begin
  x:=a[0,0];
  for j:=0 to n-2 do a[0,j]:=a[0,j+1];
  for i:=0 to m-2 do a[i,n-1]:=a[i+1,n-1];
  for j:=m-1 downto 1 do a[m-1,j]:=a[m-1,j-1];
  for i:=m-1 downto 2 do a[i,0]:=a[i-1,0];
  a[1,0]:=x;
  for i:=0 to m-1 do
  for j:=0 to n-1 do
  Stringgrid2.Cells[j,i]:=Inttostr(a[i,j]);
end;