операции с массивами паскаль

[Иришка1]

Дан вектор х=(х1...,хn) n<=15.Осуществить циклический сдвиг элементов этого вектора: а)влево на одну позицию,то есть получить х=(х2,х3...,хn,x1) б)вправо на две позиции, то есть получить х=(хn-1,x1...xn-2)

[Hacker19_90]

procedure shl1 (var a: array of integer;const count: integer);
var
  i, temp: integer;
begin
  temp := a[1];
  for i := 1 to count - 1 do
    a[i] := a[i+1]
  a[count] := temp;
end;

[Mad_Cat]

{Дан вектор х=(х1...,хn) n<=15.Осуществить циклический сдвиг элементов этого вектора:
 а)влево на одну позицию,то есть получить х=(х2,х3...,хn,x1)
 б)вправо на две позиции, то есть получить х=(хn-1,x1...xn-2)}
var
a,b:array[0..17] of real;
i:integer;
n:integer;
begin
readln(n);
randomize;
For i:=1 to n do
begin
a[i]:=random(20)+random(100)/100;
b[i]:=a[i];
write(a[i]:6:2);
end;
writeln;
writeln('a):');
For i:=0 to n-1 do
a[i]:=a[i+1];
a[n]:=a[0];
For i:=1 to n do
begin
write(a[i]:6:2);
end;
writeln;
writeln('б):');
For i:=n+2 downto 3 do
b[i]:=b[i-2];
b[1]:=b[n+1];
b[2]:=b[n+2];
For i:=1 to n do
begin
write(b[i]:6:2);
end;
readln;
end.

[Иришка1]

спасибо большое,но там в б)вправо на две позиции, то есть получить х=(хn-1,x1...xn-2)

[Mad_Cat]

вправо на 2 позиции буит
х=(хn-1,xn,x1...xn-2) - как раз как у меня

1.29 14.83 3.85 4.67 9.23 17.91 19.01
a):
14.83 3.85 4.67 9.23 17.91 19.01 1.29
б):
17.91 19.01 1.29 14.83 3.85 4.67 9.23