Tenho dúvida

Programação
#1

Algoritmo “maiormenorsernegativo”
var
maior, n, menor:inteiro
inicio
repita
escreval(“escreva um número, de preferencia números diferentes”)
leia(n)
se (n>0) então
se (n>maior) então
maior<- n
se (n<menor) então
n<-menor
fimse
fimse
fimse
ate (n < 0)
escreval ("O maior número digitado foi " ,maior, " menor número " ,menor)
fimalgoritmo
“”"NÃO SEI O QUE ESTÁ DANDO ERRADO, O MENOR SEMPRE DA ZERO

#2

Quando você digita 0 para encerrar o loop o valor 0 é reconhecido como sendo o menor valor informado!