Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить циклический сдвиг ВПРАВО

var
 arr: array[-10..10] of integer; {arr: array[-12..12] of integer;}
 i: integer;
begin
 for i:=1 to 10 do {for i:=1 to 12 do}
  begin
   read(arr[i]);
  end;
end.

randomize;
for i:=1 to 10 do 
  begin
   arr[i]:=random(21)-10;
   write(arr[i]:3);
  end;

var
   a:array[1..100] of integer;
   i,r,n,k,j:integer;
begin
 read(n,k);  {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.

var
a: array[-12..12] of integer;
i, r, n, k, j: integer;
begin
 k:=4; {k обозначает величину сдвига}
 for i:=1 to 12 do
  begin
   read(a[i]);
  end;
 for i:=1 to k do
  begin
   for j:=12 downto 1 do
    begin
     if (j=12) then r:=a[12] else a[j+1]:=a[j];
    end;
   a[1]:=r;
  end;
   for i:=1 to 12 do
    begin
     write(a[i]);
    end;
readln;
end.

var
   a:array[1..100] of integer;
   i,r,n,k,j:integer;
begin
 read(n,k);  {k обозначает величину сдвига}
 for i:=1 to n do
  read(a[i]);
 for i:=1 to k do
  begin
   for j:=1 to n do
    if (j=1) then r:=a[j] else a[j-1]:=a[j];
   a[n]:=r;
  end;
 for i:=1 to n do
  write(a[i],' ');
 readln
end.