Altura de 6 pessoas

Não consigo fazer a menor altura

algoritmo "semnome"
// Função :
// Autor :
// Data : 13/10/2014
// Seção de Declarações
var
cont, altura, maior, menor: inteiro
soma, media: real
inicio
// Seção de Comandos
cont<-1
enquanto cont<=6 faca
escreval ("Digite a altura:")
leia (altura)
se (altura>maior) entao
maior<-altura
fimse
se (altura<menor) entao
menor<-altura
fimse
soma<-soma+altura
media<-soma/6
cont<-cont+1
fimenquanto
escreval ("A maior altura do grupo é:", maior)
escreval ("A menor altura do grupo é:", menor)
escreval ("A média de altura do grupo é:", media)
fimalgoritmo

algoritmo "Maior e Menor Altura"
// Função : Enquanto
// Autor : Willians Miyabara
// Data : 23/02/2015
// Seção de Declarações
var
cont: inteiro
soma, media,altura, maior, menor: real

inicio
// Seção de Comandos
cont<-1
enquanto cont<=6 faca
        escreval ("Digite a altura:")
        leia (altura)
        se cont=1 entao // Tem que fazer as 2 alturas serem atribuidas na primeira leitura
           maior<-altura
           menor<-altura
        fimse
        se (altura>maior) entao
           maior<-altura
        fimse
        se (altura<menor) entao
           menor<-altura
        fimse
        soma<-soma+altura
        media<-soma/6
        cont<-cont+1
fimenquanto

escreval ("A maior altura do grupo é:", maior)
escreval ("A menor altura do grupo é:", menor)
escreval ("A média de altura do grupo é:", media)

fimalgoritmo