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

// Описать процедуру MoveRight(A,N,k), осуществляющую циклический сдвиг элементов вещественного массива A размера N на k вправо (0 < k < 5, k < N).
//Массив A — входной и выходной параметр, N и k — входные параметры. С помощью этой процедуры осуществить сдвиг элементов данного массива размера N на k1 позиций,
//а затем — сдвиг элементов полученного массива на k2 позиций (k1 и k2 даны). После каждого вызова процедуры выводить на экран результирующий массив.
Program lab_11_2;
  const n=10;
var a:array[1..n]of integer;  k,i,j,r:integer;
procedure MoveRight (var k,i,j,r:integer);
  begin //вот тут я не знаю что в писать...
  end;
Begin
  randomize;
  repeat
  write('Введите k= ');
  readln(k);
  until (k>0)and(k<n); //проверяем правильность ввода к
  writeln('Исходный массив:');
  for i:=1 to n do
begin
  a[i]:=random(10);
  write(a[i],' ');
  end;
  writeln;
  for j:=1 to k do
begin
  r:=a[n]; //запоминаем последний
  for i:=n downto 2 do //от второго до конца сдвигаем вправо на 1
begin
  a[i]:=a[i-1];
  end;
  a[1]:=r;//последний ставим первым и так к раз
  end;
  writeln;
  writeln('Сдвинутый массив вправо: ');
  for i:=1 to n do
  write(a[i],' ');
End.

{ Îïèñàòü ïðîöåäóðó MoveRight(A,N,k), îñóùåñòâëÿþùóþ öèêëè÷åñêèé ñäâèã
ýëåìåíòîâ âåùåñòâåííîãî ìàññèâà A ðàçìåðà N íà k âïðàâî (0 < k < 5, k < N).
Ìàññèâ A — âõîäíîé è âûõîäíîé ïàðàìåòð, N è k — âõîäíûå ïàðàìåòðû. Ñ ïîìîùüþ
ýòîé ïðîöåäóðû îñóùåñòâèòü ñäâèã ýëåìåíòîâ äàííîãî ìàññèâà ðàçìåðà N íà k1
ïîçèöèé, à çàòåì — ñäâèã ýëåìåíòîâ ïîëó÷åííîãî ìàññèâà íà k2 ïîçèöèé (k1 è k2 äàíû).
Ïîñëå êàæäîãî âûçîâà ïðîöåäóðû âûâîäèòü íà ýêðàí ðåçóëüòèðóþùèé ìàññèâ. }
 
program lab_11_2;
 
const
  n = 10;
 
var
  a: array[1..n] of integer;
  k, i, j: integer;
  
procedure MoveRight(var A: array[1..n] of integer; const N, k: integer);
var
  B: array[1..100] of integer;
  i: integer;
 
begin
  for i := 1 to k do
    b[i] := a[n - k + i];
  for i := n downto k + 1 do
    a[i] := a[i - k];
  for i := k downto 1 do
    a[i] := b[i]
end;
 
begin
  randomize;
  repeat
    write('Введите k= ');
    readln(k);
  until (k > 0) and (k < n); //проверяем правильность ввода k
  writeln;
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    a[i] := random(100);
    write(a[i], ' ');
  end;
  writeln;
  MoveRight(A, N, k);
  writeln('Результат:');
  for i := 1 to n do write(a[i], ' ');
  writeln;
end.