ordenação de vetores ascendente e descendente com case

Algoritmo "ordenação escolha"

Var

  v:vetor[1..5] de inteiro

  comp,i,aux, ordenacao:inteiro  // comp = comparações

Inicio

  para i de 1 ate 5 faca

     escreval("Escreva o ",i,"º número")

     leia(v[i])

  fimpara

  escreval("Como que ordenar?")

  Escreval("1: Ascendente")

  Escreval("2: Descendente")

  leia(ordenacao)

  para comp de 4 ate 1 passo -1 faca

     para i de 1 ate comp faca

        escolha ordenacao

        caso 1

           se v[i]> v[i+1] entao

              aux <- v[i]

              v[i]<-v[i+1]

              v[i+1]<-aux

           fimse

        caso 2

           se v[i]< v[i+1] entao

              aux <- v[i]

              v[i]<-v[i+1]

              v[i+1]<-aux

           fimse

        fimescolha

     fimpara

  fimpara

Fimalgoritmo