Melhores e piores alunos 2 - VisuAlg

algoritmo "Melhor e pior aluno"
var
melhoraluno,pioraluno,aluno:caractere
NA,C:inteiro // NA ~> Número de alunos
guardaNA:inteiro
piornota,melhornota,nota:real
inicio
Escreva ("Quantos alunos a turma possui ? ")
leia (NA)
guardaNA<-NA
C <- 1
enquanto NA>0 faca
   Escreva ("Digite o nome do ",C,"° aluno(a): ")
   leia (aluno)
   Escreva ("Qual foi a nota de ",aluno,"? ")
   leia (nota)
   C <- C+1

   se guardaNA=NA entao //nesse SE melhor e pior notas recebem primeira nota APENAS A PRIMEIRA, pois depois NA é decrementado e guardaNA será diferente de NA, ok?
   melhoraluno<-aluno
   piornota <- nota
   fimse

   se nota > melhornota entao
      melhornota <- nota
      melhoraluno <- aluno
   fimse

   se nota<piornota entao
      piornota <- nota
      pioraluno <- aluno
   fimse
   NA<-NA-1
fimenquanto
EscrevaL ("O melhor aluno foi ",melhoraluno," com nota ",melhornota)
EscrevaL ("O pior aluno foi ",pioraluno," com nota ",piornota)
fimalgoritmo