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