Mostrar quantidade de Aprovados,reprovado ou em recuperação

Programação
#1

Galera estou com um problema aqui e não sei como resolver.
Em uma atividade foi pedido que, em pascal, para calcular a média de 5 alunos e mostrace quantos foram aprovados,quantos em recuperação e quantos reprovados.

Quanto a parte de mostrar a media dos usuarios eu já fiz, veja só:

Program Pzim ;
var
n1,n2,media:real;
cond:string;

i:integer;
Begin
for i:=1 to 5 do
begin
writeln(’’);
writeln(‘Digite a primeira nota’);
read(n1);
writeln(‘Digite a segunda nota’);
read(n2);
media:= (n1+n2)/2;

if(media >= 7)then
cond:=‘Aprovado’;
if(media <=6)then
cond:=‘Recuperação’;
if(media<4)then
cond:=‘Reprovado’;

writeln('A media é: ‘,media,’ e você está ',cond);
end;
End.

Agora, como faço para mostrar a quantidade de usuario aprovados,reprovados ou em recuperação? Não tenho a minima ideia de como fazer, fiz algumas pesquisas na internet mas não obtive exito. Alguem pode me ajuda???

#2

Basta Adicionar uma variável e somar!

if(media >= 7)then
   cond:='Aprovado';
   qtdAprovados := qtdAprovados + 1;
if(media <=6)then
   cond:='Recuperação';
   qtdRecuperacao := qtdRecuperacao + 1;
if(media<4)then
   cond:='Reprovado';
   qtdReprovados := qtdReprovados + 1;

Depois é só exibir os valores!

#3

AAAAAEEEEEEEE!!! Deu certo, vlw.