Maior e menor numero comparando 4 var em portugol

[mcaa 0]

var
 J, A, B, C, D, ME, MA,I: inteiro
 VALOR: VETOR[1..4] DE INTEIRO
 
inicio

    ME <- 999
    MA <- 0

     ESCREVAL ("DIGITE 4 VALORES: ")
 
   PARA J DE 1 ATE 4 FACA

        LEIA(VALOR[J])

     SE (VALOR[J] > MA) ENTAO
       MA <- VALOR[J]
     FIMSE
      SE (VALOR[J] < MA) ENTAO
        ME <- VALOR[J]
      FIMSE

    FIMPARA
    
      ESCREVAL("MAIOR: ", MA, "MENOR: ",ME)


fimalgoritmo

O programa ta rodando no visual g, o problema é que se eu digito a sequencia: 7, 25, 1 ,9 ele me retorna como numero menor o numero 9, como corrijo ?

SE (VALOR[J] < ME) ENTAO

Só acrescentar um se (com a condição citada acima) dentro do segundo se. Rodou diritin.

[tockie 1]

Mas tem outro problema: E se eu inserir os números 1000, 1001, 1002, 1003? Como o programa pega o 1000 como menor se o valor inicial definido é menor?