I am making an algorithm to show the highest grade and on this higher grade, show the name of the student who took the higher grade. At first everything seems ok, but it is not working. Where is the error?
algoritmo "melhor aluno"
var
Quantidade,cont,nota,maior : real
nome,melhor_aluno : caractere
inicio
Escreval ("==============================")
Escreval (" Escola Santa Paciencia ")
Escreval ("==============================")
Escreval ("Quantos alunos a turma tem?")
Leia (quantidade)
cont <- 1
Escreval ("==============================")
Enquanto (Cont < quantidade) faca
Escreval ("Aluno ",cont)
Escreval ("Nome do aluno: ")
Leia (nome)
Escreval ("Nota de ",nome)
Leia (nota)
Escreval ("==============================")
Cont <- cont + 1
Se (nota > maior) entao
maior <- nota
nome <- melhor_aluno
FimSe
FimEnquanto
Escreval ("O melhor aluno da sala foi ",Melhor_aluno," com a nota de ",maior," pontos")
fimalgoritmo