работа с массивом

[begemotikdin]

Привет!!! И так такая небольшая проблемка. Как переписать элементы массивы, т.е. к примеру имеется массив X и нужно первые 4 элемента переписать в конец массива, т.е.
начало
x1,x2,x3,x4,x5..x15
после преобразования
x5,x6..x15,x1,x2,x3,x4
я делаю это вручную используя цикл for 2 раза и при этом получится разбитый массив, но как это сделать красиво в самом массиве???
Всем спасибо!!!

[-=<[Evklidd]>=-]

Вот код, все делается в самом массиве, n - число элементов массива, а m - число элементов, которое необходимо переместить в конец массива:

program pro23;
var
ar: array [1..15] of integer;
n, m, j ,i, k: integer;
begin
 Randomize;
 readln(n);
 readln(m);
 for i:= 1 to n do
  ar[i]:= random(200);
 for i:= 1 to m do
  begin
   k:= ar[1];
   for j:= 2 to n do
    ar[j-1]:= ar[j];
   ar[n]:= k;
  end;
 readln;
end.

[begemotikdin]

пасибки большое