Efetuar a leitura de cinco números inteiros e identicar o maior e o menor valores

VisualG -

algoritmo
var
   valor, maior, cont : inteiro
inicio
      Leia (valor)
      maior <- valor
      Para cont de 1 ate 4 faca
           Leia (valor)
           Se valor > maior entao
              maior <- valor
           fimse
      fimpara
      Escreval ("Maior valor digitado: ", maior)
fimalgoritmo

algoritmo "Maior_Menor"
// Função :
// Autor :
// Data : 
// Seção de Declarações 
var
a,b,c,d,f,Ma,Me: real
inicio
// Seção de Comandos
    escreva("Digite cinco valores: ")
    leia (a,b,c,d,f)
    Ma<-a
   se (b>Ma) entao
         Ma<-b
         se(c>Ma) entao
              Ma<-c
              se(d>Ma) entao
                   Ma<-d
                   se(f>Ma) entao
                         Ma<-f
                   fimse
               fimse
          fimse
    fimse
    Me<-a
    se (b<Me) entao
         Me<-b
         se(c<Me) entao
             Me<-c
              se(d<Me) entao
                   Me<-d
                   se(f<Me) entao
                         Me<-f
                   fimse
               fimse
          fimse
    fimse
    escreval("O maior numero é: ", Ma)
    escreval("O menor numero é: ", Me)
fimalgoritmo