Сдвинуть все элементы массива вправо на заданное число позиций - PascalABC.NET

Формулировка задачи:

С клавиатуры вводится произвольный одномерный массив типа Real (не более 10 элементов), после чего делается его контрольный вывод. Сдвинуть все элементы массива вправо на заданное число позиций.

var
   a:array[1..100] of integer;
   i,r,n,k,j:integer;
begin
 read(n,k);  
 for i:=1 to n do
  read(a[i]);
 for i:=1 to k do
  begin
   for j:=n downto 1 do
    if (j=n) then r:=a[n] else a[j+1]:=a[j];
   a[1]:=r;
  end;
 for i:=1 to n do
  write(a[i],' ');
 readln
end.

Типо так ток для одномерного массива

Решение задачи: «Сдвинуть все элементы массива вправо на заданное число позиций»

Листинг программы

begin
  var n := 10;
  Print('Введите элементы массива:');
  var a := ReadArrReal(n);
  Print('Исходный массив:');
  a.Println;
  var k := n - ReadInteger('Введите k:') mod n;
  Print('Массив после сдвига:');  
  a:=a?[k:] + a?[:k];
  a.Println
end.

Объяснение кода листинга программы

В этом коде выполняется следующие действия:

Сначала объявляется переменная n и ей присваивается значение 10.
Затем выводится сообщение Введите элементы массива: и считывается массив a из консоли с помощью функции ReadArrReal(n).
Выводится сообщение Исходный массив: и элементы массива a выводятся на экран с помощью метода Println.
Затем считывается значение переменной k с помощью функции ReadInteger, сообщение Введите k: выводится на экран перед этим. Значение k должно быть в пределах от 0 до n-1, так как оно вычисляется как (n-ReadInteger('Введите k:')) mod n.
После этого выводится сообщение Массив после сдвига: и выполняется сдвиг элементов массива a вправо на указанное количество позиций, используя операцию взятия остатка от деления (%). Оставшиеся элементы массива a сдвигаются влево на это же количество позиций. Результат сохраняется в переменной a.
Наконец, элементы массива a выводятся на экран с помощью метода Println.