Melhores e piores alunos - VisuAlg

algoritmo "Melhor e pior aluno"
var
melhoraluno,pioraluno,aluno:caractere
NA,C:inteiro // NA ~> Número de alunos
piornota,melhornota,nota:real
inicio
Escreva ("Quantos alunos a turma possui ? ")
leia (NA)
C <- 1
enquanto C <= NA faca
   Escreva ("Digite o nome do ",C,"° aluno(a): ")
   leia (aluno)
   Escreva ("Qual foi a nota de ",aluno,"? ")
   leia (nota)
   C <- C + 1
   se nota > melhornota entao
      melhornota <- nota
      melhoraluno <- aluno
   senao
      piornota <- nota
      pioraluno <- aluno
   fimse
fimenquanto
EscrevaL ("O melhor aluno foi ",melhoraluno," com nota ",melhornota)
EscrevaL ("O pior aluno foi ",pioraluno," com nota ",piornota)
fimalgoritmo