Duvida Exercício Pascal

[ellis]

Fiz o exercício abaixa mas não está funcionando corretamente:

Informar 20 número e imprimir o maior e o menor número:

Program Pzim ;
var
n,cont, maior, menor: integer;
Begin
cont := 0;
maior := 0;
menor := 0;
While cont < 20 do
begin
cont:= cont + 1;
writeln( 'Informe um número' ) ;
read(n) ;
end;
If cont = 1 then
begin
if n > maior then
maior := n;
if n < menor then
menor := n;
end;
Writeln ('O maior número é ',maior, ' o menor número é ', menor);

End.

[Hanyx]

Tenha abaixo como exemplo

var
num, maior, menor: inteiro
inicio
escreval ("Digite o Numero Digite -99999 para encerrar")
leia (num)
maior <- num
menor <- num
enquanto (num <> -99999) faca
se (num > maior entao
maior <- num
fimse
se (num < menor) entao
menor <- num
fimse
leia (num)
fimenquanto
escreval ("Maior: ", maior)
escreval ("Menor: ", menor)
fimalgoritmo