Usando Loop na qtde

bom dia a todos, esto com dvida quanto ao exercício,fiz por completo, mas no final pede a quantidade de aluno que ficaram APROVADO, DP ,REPROVADOS,RECUPERAÇÃO,usando cont+1 apenas ele soma a quantidade de vezes que foram lidas, 6 alunos no total;

algoritmo "semnome"
// Função :
// Autor :
// Data : 06/10/2013
// Seção de Declarações
var
i,al:inteiro
n1,n2,med,cont: real

inicio
// Seção de Comandos

para i de 1 ate 6 passo 1 faca
escreval ("digite a 1° nota do al")
leia (n1)
escreval ("digite a 2° nota do al")
leia (n2)
med <- (n1+n2)/2
escreval ("sua media e de:",med)
se med >= 9 entao
escreval ("aprovado")
senao
se med >= 7 entao
escreval ("recuperacao")
senao
se med >= 5 entao
escreval ("dp")
senao
se med < 5 entao
escreval ("reprovado")
fimse
fimse
fimse
fimse
cont <- cont + 1
//Qtde de médias

fimpara

fimalgoritmo