Записать первый элемент массива в конец

[Pecho]

Доброго время суток, уважаемы форумчане!
Вопрос таков: дан массив, необходимо первый его элемент записать в самый конец этого массива, т.е. сделать последним.
Т.е.
mas_osn: array[1..6] of char = ('G','Y','J','N','G','M');
Представить как
'Y','J','N','G','M','G'
Мозги оплавились, поэтому этот вроде не сложный вопрос (но не для меня) задаю на форуме.

[yasic]

var 
    S : String;
    I  : Byte;
......
for I := UBound(mas_osn) downto 1 do
 begin 
  S := S + mas_osn[I];
 end;

Ну как то так....

[Pecho]

Спасибо большое!

Мне ещё одно решение подсказали, вот оно:

var temp:char;//переменная, в которой временно будет хранится первый элемент массива
....
temp:=mas_osn[1]
for i:=2 to 6 do
begin
mas_osn[i-1]:=mas_osn[i]; //текущее элемент ставим предыдущим
end;
mas_osn[6]:=temp;

[wm_leviathan]

так:

var
i: integer;
Tmp: char;
begin
for i := 1 to 6-1 do begin
tmp:=mas[i];
mas[i]:=mas[i+1];
mas[i+1]:=tmp;
end;