Imprimir os valores de forma ascendente(Portugol)

[mcaa 0]

Pessoal, preciso de uma forcinha nesta questão, tenho de fzer um programa que imprima 3 valores de forma ascendente(do menor para o maior)

 

o que já fiz :

var
J,  I, AUX: inteiro
VALOR: VETOR[1..3] DE INTEIRO
ORDENA: VETOR[1..3] DE INTEIRO

inicio




   ESCREVAL ("DIGITE 3 VALORES: ")

     
PARA J DE 3 ATE  >0 FACA
   PARA I DE >0 ATE 3 FACA

        LEIA(VALOR[I])
      SE(VALOR[I] <  VALOR[I+1]) ENTAO
         //SE (VALOR[J] > VALOR[J+1])ENTAO
         AUX <-VALOR[I]
         VALOR[I]<-VALOR[I+1]
         VALOR[I+1]<-AUX

      SENAO

       SE(VALOR[I] >  VALOR[I+1]) ENTAO
         //SE (VALOR[J] > VALOR[J+1])ENTAO
         AUX <-VALOR[I]
         VALOR[I]<-VALOR[I+1]
         VALOR[I+1]<-AUX

         FIMSE
         //FIMSE
      FIMSE

   FIMPARA
FIMPARA

//ESCREVAL("ORDEM ASCENDENTE: ", ORDENA[I+1])

fimalgoritmo

alguém ??

[Michel Victor 0]

quero entender se, voce quer para vetor ou matriz? pois percebi que voce colocou algumas linhas de codigos como comentarios.