Estou fazendo um algoritmo para mostrar a maior nota e nessa maior nota,mostrar o nome do aluno que tirou essa maior nota.A principio parece tudo ok,mas não esta funcionando.Aonde esta o erro?
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