Написать програму для Паскаля: Дан линейный массив, содержащий положительные и отрицательные целые числа, n=10. Создать новый массив, в котором содержатся только положительные элементы из исходного масива, упорядочить этот новый массив по возрастанию.

var

i, j, k, p: integer;

a, b: array[1 ... 10] of integer;

begin

k : = 0;

for i : = 1 to 10 do

begin

a[i] : = random (20) - 10;

write (a[i]:3) ;

if a[i] > 0 then

begin

k : = k + 1;

b[k] : = a[i];

end;

end;

for i : = 1 to k - 1 do

for j : = i + 1 to k do

if b[i] > b[j] then

begin

p : = b[i];

b[i] : = b[j];

b[j] : = p;

end;

writeln;

for i : = 1 to k do write (b[i]:3) ;

end.