Pascal отсортировать по возрастанию положительные элементы массивы вывести исходный и изменить массивы можно использовать любой метод сортировки массив заполнить случайными положительными и отрицательными целым числами

//Лень было расписывать быструю сортировку, так что вот "пузырёк"//Pascal ABC.NET 3.1 сборка 1219Constn=10;Var i:integer; procedure booblesort(var ar:array of integer;n:integer); Var i,j:integer;  begin   for i:=0 to n-1 do    for j:=i+1 to n do     if (ar[i]>ar[j]) and (ar[i]>0) and (ar[j]>0) then swap(ar[i],ar[j]);  end; begin randomize; var ar:=ArrRandomInteger(n,-10,10); writeln('First array:'); ar.Println; booblesort(ar,n-1); writeln('Final array:'); ar.println;end.Пример работы программы:First array:-9 -5 5 -9 4 -3 -9 4 10 8Final array:-9 -5 4 -9 4 -3 -9 5 8 10