Частичная сортировка элементов

[A_Orlov]

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

[Snejnaya]

var mas, element1:array 1..20 of real;
     i,n,j:integer;

begin
writeln("vvedite chislo elementov");
readln(n);
for i:=1 to n do readln(mas[i]);

for i:=2 to n do
if (mas[i]>mas[1]) then j:=i-1;

element1:=mas[1];

for i:=1 to (j-1) do mas[i]:=mas[i+1];

mas[j]:=element1;
end.

[Pomogite_pls]

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

[Serge_Bliznykov]

выдает ошибку...непонятно

ну и правильно выдаёт.
в вышеприведённом коде ошибок вагон и маленькая тележка.
да и концептуально выбран неправильный алгоритм решения.
думаю, что здесь подразумевается, что нужно обойтись ОДНИМ массивом, без дополнительного!

[Vasisualis]

for i:=1 to n-1 do
if mas[i]>mas[i+1] then begin j:=mas[i]; mas[i]:=mas[i+1]; mas[i+1]:=j; end else break;
описание массива его ввод и вывод возми из той проги