xHarbour, Array excluindo e reposicionando registros

Adel(aArray,Item)
aSize(aArray,Len(aArray)-1)
aSort( aArray,,,{|x,y|x[1]<y[1]})
FOR X = 1 TO Len(aArray)
    aArray[x,1]:=X
NEXT