Массив: Осуществить циклический сдвиг элементов квадратной матрицы размером М * Н вправо на К элементов

Const
  M = 10; //Размерность матрицы
  H = 15; //Если квадратная - M = H
  K = 7;  //Сдвиг на...
Var
  //Сама матрица
  matr : Array[1..M,1..H] of Integer;
 
  //Массив для временных вычислений
  Temp : Array[1..M*2+N*2-4] of Integer;
  i,j,c : Integer;
begin
  //Перенесём сдвигаемый участок во временный массив
  For i:=1 To H-1 Do //верхняя строка
  Temp[i]:=matr[1,i];
 
  For i:=1 To M-1 Do //последний столбец
  Temp[i+H-1]:=matr[i,H];
 
  For i:=H DownTo 2 Do //нижняя строка сзаду на перёд
  Temp[H-1+M-1+((2+H)-i-2+1)]:=matr[M,i];
 
  For i:=M DownTo 2 Do //первый столбец снизу вверх
  Temp[H-1+M-1+H-1+(2+M-i-2+1)]:=matr[i,1];
 
  //Сдвиг временного массива на K -элементов вправо
  For i:=1 To (K Mod High(Temp)) Do
  Begin
    //Сдвиг на одну позицию
    c:=Temp[High(Temp)];
    For j:=High(Temp) DownTo 2 Do Temp[j]:=Temp[j+1];
    Temp[1]:=c;
  End;
 
  //Перенесём сдвигаемый участок
  //из временного массива в матрицу
  For i:=1 To H-1 Do //верхняя строка
  matr[1,i]:=Temp[i];
 
  For i:=1 To M-1 Do //последний столбец
  matr[i,H]:=Temp[i+H-1];
 
  For i:=H DownTo 2 Do //нижняя строка сзаду на перёд
  matr[M,i]:=Temp[H-1+M-1+((2+H)-i-2+1)];
 
  For i:=M DownTo 2 Do //первый столбец снизу вверх
  matr[i,1]:=Temp[H-1+M-1+H-1+(2+M-i-2+1)];
end.

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
 
Const
  M = 10; //Размерность матрицы
  H = 15; //Если квадратная - M = H
  K = 7;  //Сдвиг на...
Var
  //Сама матрица
  matr : Array[1..M,1..H] of Integer;
 
  //Массивы для временных вычислений
  Temp,Temp1 : Array[1..M*2+N*2-4] of Integer;
  i,j,c : Integer;
begin
  //Заполнение матрицы...
  Randomize;
  For i:=1 To M Do
  For j:=1 To H Do
  matr[i,j]:=Random(1000); //Значениями: от 0 до 1000
 
  //Перенесём сдвигаемый участок во временный массив
  For i:=1 To H-1 Do //верхняя строка
  Temp[i]:=matr[1,i];
 
  For i:=1 To M-1 Do //последний столбец
  Temp[i+H-1]:=matr[i,H];
 
  For i:=H DownTo 2 Do //нижняя строка сзаду на перёд
  Temp[H-1+M-1+((2+H)-i-2+1)]:=matr[M,i];
 
  For i:=M DownTo 2 Do //первый столбец снизу вверх
  Temp[H-1+M-1+H-1+(2+M-i-2+1)]:=matr[i,1];
 
  //Сдвиг временного массива на K -элементов вправо
  For i:=1 To High(Temp) Do
  Temp1[((i-1+K) Mod High(Temp))+1]:=Temp[i];
 
  //Перенесём сдвигаемый участок
  //из временного массива в матрицу
  For i:=1 To H-1 Do //верхняя строка
  matr[1,i]:=Temp1[i];
 
  For i:=1 To M-1 Do //последний столбец
  matr[i,H]:=Temp1[i+H-1];
 
  For i:=H DownTo 2 Do //нижняя строка сзаду на перёд
  matr[M,i]:=Temp1[H-1+M-1+((2+H)-i-2+1)];
 
  For i:=M DownTo 2 Do //первый столбец снизу вверх
  matr[i,1]:=Temp1[H-1+M-1+H-1+(2+M-i-2+1)];
end.