Составить программу циклич.перестановки - Pascal ABC

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

Составить программу циклической перестановки элементов одномерного массива a [n], при которой1 i-ый элемент становится i+1-м, а последний элемент становится первым. Мне нужно решить эту задачу двумя способами,помогите пожалуйста.

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

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

                            const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,x:integer;
begin
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходный масссив');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
x:=a[n];
for i:=n downto 2 do
a[i]:=a[i-1];
a[1]:=x;
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:4);
end.
                        