циклический сдвиг массива

[goacher]

помогите решить несложную задачку:
Дан массив размера N, осуществить циклический сдвиг элементов влево на одну позицию.

Заранее благодарен...

[Greblin]

var i: integer;

for i := 2 to N do
  mas[i-1] := mas[i];

первый элемент массива будет потерян

[goacher]

а если нужно будет сделать вправо, то это

Var i: integer;   
  
for i := 2 to N do   
  mas[i+1] := mas[i];

правильно?

[D-mon]

 Var i: integer;     
     
 for i := 1 to N-1 do     
   mas[i+1] := mas[i];

[puporev]

Циклический сдвиг это не просто сдвиг с потерей первого элемета, а такой сдвиг, кода певый элемент становится последним.
1.Запоминаем значение 1-го элемента.
2.От 1 до n-1 сдвигаем влево.
3.Последнему элементу присваиваем значение запомненного первого элемента.
Также вправо, только все начинается с последнего элемента.