Код
var arr : array [1..100] of integer;
var min, i, n : integer;
begin
read(n);
for i:= 1 to n do read(arr[i]);
min:=1;
for i:=1 to n do
if arr[min]>arr[i] then min:=i;
for i:=min to n do
arr[i-min+1]:=arr[i];
n:=n-min+1;
for i:=1 to n do write(arr[i]);
readln;
readln;
end.