Переставить элементы массива по схеме

[Wellshumor]

Дана целочисленная таблица A[1..7]. Переставить в ней элементы по следующей схеме:
A1 A2 A3 A4 A5 A6 A7
A6 A7 A1 A2 A3 A4 A5
Помогите, пожалуйста

[newerow1989]

var i,j,z:integer;
    a:array[1..7] of integer;
begin
   Randomize;
   For i:=1 to 7 do
   begin
      a[i]:=i;
      Write(a[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   For i:=1 to 5 do
   begin
      z:=a[1];
      For j:=1 to 6 do
         a[j]:=a[j+1];
      a[7]:=z;
   end;
   For i:=1 to 7 do
      Write(a[i]:3,'  ');
   Writeln;
   Readln;
end.