Foro de programacion

Hola, como va? Tengo un problema con el codigo de este algoritmo de ordenacion. No entiendo el error, si pudieran pasarmelo solucionado les agradeceria. Aca esta el codigo:

STORE 0 TO cantidad,i
@1,1 say "Ingrese la cantidad del vector: " get cantidad picture "99"
READ
DIMENSION vector(cantidad)
STORE 0 TO vector

FOR i=1 TO cantidad
@1+i,1 say "Ingrese el valor " +STR(i,2,0) +":" get vector(i)
READ
ENDFOR

= quicksort(@vector,1,cantidad)

FOR i=1 TO cantidad
@cantidad+i+1 say "Ingrese el valor "+STR(i,2,0)+ ":" get vector(i)
ENDFOR

FUNCTION quicksort
PARAMETERS vector,desde,hasta
de=desde+1
ha=hasta

IF desde<hasta
DO WHILE ha>=de
IF vector(de-1)>vector(de) &&ACA ME MARCA EL ERROR
aux=vector(de-1)
vector(de-1)=vector(de)
vector(de)=aux
de=de+1
ELSE
aux=vector(de)
vector(de)=vector(de-1)
vector(de-1)=aux
de=de+1
ENDIF
ENDDO

=quicksort(@vector,desde,ha)
=quicksort(@vector,de,hasta)
ENDIF


Saludos.