const
n=10;
var
c,x:array[1..n] of Integer;
i,l,k,j:integer;
begin
randomize;
for i:=1 to n do
begin
c[i]:=random(10);
write(c[i],' ');
end;
writeln ('Исходный массив');
writeln;
for i:=1 to n do begin
if c[i]>0 then
x[i]:=c[i];
write(x[i],' ');
end;
writeln ('Новый массив X');
writeln;
writeln ('Отсортированный массив');
for i:=1 to n-1 do begin
l:=i;
for j:=i+1 to n do
if x[j]<x[l] then
l:=j;
k:=x[i];
x[i]:=x[l];
x[l]:=k;
end;
for i:=1 to n do
write (x[i],' ' );
readln 
end.