Осуществить циклический сдвиг на одну позицию по часовой стрелке внешних элементов матрицы

const m = 7; n=6;
 
var A : array[1..m, 1..n] of integer;
  i,j, inext, jnext, k, tmp1, tmp2 : integer;
begin
  Randomize;
  WriteLn('Исходная матрица:');
  for i:=1 to m do begin
    for j:=1 to n do begin
      A[i,j] := random(500);
      Write(A[i,j]:3,' ');
    end;
    WriteLn;
  end;
  WriteLn;
  
  
  { циклический сдвиг на одну позицию по часовой стрелке значений элементов,
      расположенных на внеш-нем слое матрицы (крайних строках и столбцах)}
      
  i:=1; j:=1;
  inext := i;  jnext := j;
  tmp1 := A[i,j];
 
  for k:=1 to 2*n + 2*(m-2) do
  begin
     if (i=1) then begin
        if (j<n) then Inc(jnext)
        else inc(inext);
     end
     else begin
       if (j=n) and (inext<m) then Inc(inext)
       else
          if jnext>1 then  dec(jnext)
          else Dec(inext)
     end;
 
     tmp2 := A[inext,jnext];
     A[inext, jnext] := tmp1;
     tmp1 := tmp2;
 
{     Write(inext,' ', jnext,'    ');   if (inext=m) and (jnext=n) then WriteLn;}
     i:=inext; j:=jnext;
  end;
  WriteLn; WriteLn;
 
  WriteLn('полученная после сдвига матрица:');
  for i:=1 to m do begin
    for j:=1 to n do
      Write(A[i,j]:3,' ');
    WriteLn;
  end;
  WriteLn; WriteLn;
 
end.