Dúvida algoritmo ordenação.

Boa noite,estou tentando fazer um algoritmo que leia 50 números e mostre em ordem crescente e decrescente ao usuário,preciso utilizar vetor. Até agora só conseguir fazer a parte crescente. Alguém tem alguma dica de como fazer a parte decrescente?

Var

CONTADORA, CONTADORB: inteiro

NUM, AUX: inteiro

VET: vetor[0..49] de inteiro

Inicio

para CONTADORA de 0 ate 49 faca

escreval ("Digite um número")

leia (NUM)

VET[CONTADORA] <- NUM

fimpara

para CONTADORA de 0 ate 48 faca

para CONTADORB de CONTADORA + 1 ate 49 faca

se VET[CONTADORA] > VET[CONTADORB] entao

AUX <-VET[CONTADORB]

VET[CONTADORB] <- VET[CONTADORA]

VET[CONTADORA] <- AUX

fimse

fimpara

fimpara

escreval("A ordem crescente dos números é: ")

para CONTADORA de 0 ate 49 faca

escreva(VET[CONTADORA])

fimpara

Fimalgoritmo