Удалить все отрицательные элементы массива и расположить оставшиеся по убыванию

Cls

input n

dim a (n)

s=0

for i=1 to n

input a (i)

next i

for i=1 to n

if a (i) >0 then s=s+1

next i

if s>0 then

p=1:t=0

dim b (s)

for i=1 to s

for j=p to n

t=t+1

if a (j) >0 then b (i) = a (j) goto 1

next j

1: p=t

next i

for i=1 to s

for j=1 to s

if b (i)
next j

next i

for i=1 to s

print b (i);

next i

end if