Pessoal, eu tô fazendo um exercício que pede o número de alunos de uma turma da escola, solicita a nota de cada um, e depois diz qual foi a melhor e a pior nota. Porém não estou conseguindo obter a pior nota. A melhor aparece, mas a pior não. O que estou estranhando é que o código é semelhante a um contador que me diz o menor e o maior número digitado, mas não está funcionando neste da escola.
algoritmo "semnome"
var
A, M: Inteiro
Nota, Melhor, Pior: Real
N: Caractere
inicio
Escreval("ESCOLA ALEATÓRIA")
Escreva("Quantos alunos tem na turma? ")
Leia(A)
M <- 1
Enquanto A >= M faca
Escreva("Aluno", M, " : ")
M <- M + 1
Leia(N)
Escreva("Digite a nota de ", N, " :")
Leia(Nota)
Se (Nota = 0) entao
Melhor <- Nota
Pior <- Nota
FimSe
Se (Nota > Melhor) entao
Melhor <- Nota
FimSe
Se (Nota < Pior) entao
Pior <- Nota
FimSe
FimEnquanto
Escreva("A melhor nota foi: ", Melhor, ". E a pior foi: ", Pior)
fimalgoritmo
O que tem de errado nesse código que não me mostra a pior nota?