Сдвинуть элементы одномерного массива на r элементов вправо.

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.

program v;
uses crt;
const N=10;  
var A:array[1..N] of integer; 
 i,r,k,j:integer;              // i, j - счетчики, r - величина сдвига, k - временная переменная
begin
clrscr;
randomize;
writeln('Исходный массив: ');
for i:=1 to N do
begin
a[i]:=random(20)-10;        
write(a[i]:4);             
end;
writeln;
write('На сколько элементов нужно сдвинуть массив: ');
readln(r);
 for i:=1 to r do                  
  begin
   for j:=n downto 1 do                           
    if (j=n) then k:=a[n] else a[j+1]:=a[j];        
   a[1]:=k;                                      
  end;                                  
                                                  
  writeln('Результат сдвига: ');
 for i:=1 to n do                        
  write(a[i],' ');
end.