const n=10;
var
a: array [1..n] of integer;
i,j,k:integer;
begin
for i:=1 to n-1
do
begin
a[i]:=5-random(10);
write(' ',a[i]);
end;
writeln();
for i:=1 to (n-1) do
if (A[i]<0) then
for j:=i+1 to n do
if(A[j]>=0) then
begin
k:=A[i];
A[i]:=A[j];
A[j]:=k;
break;
end;
writeln('----');
for i:=1 to n-1
do
begin
write(' ',a[i]);
end;
writeln();
end.