Definir menor e maior número - Help

[Maidaekan]

Oi pra vocês. Eu estou aprendendo a programar tem pouquíssimo tempo, e tenho que criar um programa (bem simples, no VisuAlg mesmo) pra definir a maior e a menor nota de uma quantidade de estudantes e atribuir os seus nomes no fim como "MelhorAluno" e "PiorAluno".
O problema é que sempre que executo o programa, ele me dá a menor nota sempre como "0", e não me mostra o nome do "PiorAluno" no fim.
Alguém poderia me informar/sugerir onde posso estar errando?

Vou inserir o que fiz até o momento:

algoritmo "Aluno"
var
   A, C : Inteiro
   N, MelhorAluno, PiorAluno: Caractere
   NOTA, maior, menor: Real
inicio
      Escreva ("Quantos alunos tem na turma? ")
      Leia (A)
      C <- 1
      Enquanto (C <= A) faca
               EscrevaL ("Aluno", C)
               Escreva ("Nome do aluno: ")
               Leia (N)
               Escreva ("Nota do aluno: ")
               Leia (NOTA)
               Se (NOTA > maior) então
                  maior <- NOTA
                  MelhorAluno <- N
               FimSe
               Se (NOTA < menor) então
                  menor <- NOTA
                  PiorAluno <- N
               FimSe
               C <- C + 1
      FimEnquanto
      EscrevaL ("O aluno com a maior nota foi ", MelhorAluno, " com aproveitamento de ", maior)
      EscrevaL ("O aluno com menor aproveitamento foi ", PiorAluno, " com nota ", menor)
fimalgoritmo

[passarito]

Não sei se vai a tempo, mas aqui vai.

Antes do ciclo ENQUANTO inicializa as variaveis maior e menor, mas tem truque. Inicializa a variavel maior com o valor mais pequeno e a variavel menor com o valor maior, assim na primeira passagem do ENQUANTO vair atualizar essas variaveis.

...
C <- 1
maior <- 0
menor <- 100
Enquanto (C <= A) faca
...