задача на массивы (есть начало) а дальше не знаю как делать((

[zaaag]

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

Вот начал а дальше не знаю как((

program vlevo;
var i,n,s: integer;
a:array[1..100] of integer;
begin
write('n=');
read(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;

[Stilet]

var i,n,s: integer;
a:array[1..100] of integer;
begin
write('n=');readln(n);
s:=2;
for i:=1 to n do begin a[i]:=random(100); write(a[i]:5);end;writeln;
for i:=1 to n do begin write(a[((i+s-1) mod n)+1]:5);end;
readln;
end.

Идею уловил?

[nathing]

а как сдвинуть элементы по часовой ?
не уловил я алгоритма..