>Some times the names change order with that command... got any other ideas

Not sure if this is what you want :

Dimension myArray[5]
myArray=''
myArray[1]='john'
myArray[4]='jane'
myArray[5]='joe'

Disp memo like myArray

lnLen = alen(myArray)
For ix=1 to lnLen
  If empty(myArray[ix]) and ix < lnLen
    For jx = ix to lnLen
      If !empty(myArray[jx])
        myArray[ix]=myArray[jx]
        myArray[jx]=''
        Exit
      Endif
    Endfor
  Endif
Endfor
Disp memo like myArray

or :

Dimension myArray[5]
myArray=''
myArray[1]='john'
myArray[4]='jane'
myArray[5]='joe'

Disp memo like myArray
set exact on
do while ascan(myArray,"")>0
  adel(myArray,ascan(myArray,""))
enddo
set exact off
do while ascan(myArray,.f.)>0
  myArray[ascan(myArray,.f.)]=""
enddo

Cetin