Заполните массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли в начале массива, а все отрицательные и нули-в конце. Вычислите количество положительных элементов.

var i,c:integer;an:array[1..10] of integer,a:array[1..10] of integer; begin randomize; for i:=1 to 10 do a[i]:=random(100)-100; for i:=1 to 10 do if a[i]>0 then  begin an[i]:=a[i]; c:=c+1; end; writeln("Кол-во положительных элементов: ",c); for i:=1 to 10 do begin if a[i]<=0 then  begin an[c]:=a[i]; c:=c+1; end; end; writeln("Получившийся массив:"); writeln(" "); for i:=1 to 10 do write(an[i]," "); end.