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

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)<b(j) then swap b(i),b(j)
    next j
  next i
for i=1 to s
  print b(i);
next i
end if