Maior e menor no visualg

Programação
#1

Pessoal, comecei a aprender agora e estou com muita dificuldades nesse exercício feito no visualg.
Preciso criar uma lista para que seja digitados 8 valores e depois preciso que seja dito o maior e o menor valor.
Eu conseguir criar a lista e conseguir fazer com que ele mostrasse o maior valor, mas ele não mostra o menor valor correto (mostra apenas como 0).

var
cont, maior, menor: inteiro
valor:inteiro
inicio
cont <- 1
Enquanto (cont <=8) faca
Escreva ( “Digite o” ,cont, "º valor: R$ ")
leia (valor)
cont <- cont + 1
Se ( valor > maior) entao
maior <- valor
FimSe
Se ( valor < menor) entao
menor <- valor
FimSE
FimEnquanto

Escreva ( “o maior valor: " ,maior)
Escreva (” o menor valor foi:" ,menor)
fimalgoritmo

#2

Acredito que isso está ocorrento por você estar informando somente números inteiros positivos!
Antes de incrementar o contador, atribua o 1º valor informado como sendo o maior e o menor valor, à partir disso, deverá obter o resultado que espera!

Se (cont = 1) entao
    maior <- valor
    menor <- valor
FimSe