Ajuda com a ordenação QuickSort de vetor

[Pedro Marcondes]

estou tentando ordenar um vetor utilizando a ordenação QuickSort em visualg ,mas não esta funcionando, alguem poderia ajudar? Obrigado pela atenção.

 

código:

 

varvetorAleatorio: vetor [1..100] de inteirox: vetor [1..100] de inteiroi,j,minimo,auxiliar:inteiroa, pivo,IniVet,FimVet:inteiroprocedimento QuickSort(X[], IniVet, FimVet:inteiro)i <- 1j <- 100pivo <- X[(1 + 100) div 2]enquanto(i < j)   enquanto (X[i] < pivo) faca      i <- i + 1   fimenquanto   enquanto (X[j] > pivo) faca      j <- j - 1   fimEnquanto   se (i <= j) então      auxiliar  <- X[i]      X[i] <- X[j]      X[j] <- auxiliar      i <- i + 1      j <- j - 1   fimSefimEnquantose (j > IniVet) então   QuickSort(X, IniVet, j)fimSese (i < FimVet) então   QuickSort(X, i, FimVet)fimsefimprocedimentoinicio//criando vetor aleatoriopara i de 1 ate 100 faca   vetorAleatorio[i]<-RandI(100)fimpara//copiando o vetor aleatorio para os outrospara i de 1 ate 100 faca   x[i]<-vetorAleatorio[i]fimparacronometro onQuickSort()cronometro offfimalgoritmo