Crear un contardor en Crytal Report 8

[calet84]

Hola Amigos del Foro tengo una duda con este contador no me funciona bien nesecito una mano ojala que me puedan ayudar con este problemita

la finalidad de este contador es que cuente cuantas areas tiene aprobado aprobado y cuantas areas desaprobadas es atn siemple que no me sale ojala que me ayuden ........!!
Gracias de Antemano............. !!!!

aqui les envio el codigo ..


Local NumberVar x := 0;
Local NumberVar i;
if {@Grado} = 10 then // si el Grado son : 1ro, 2do, 3ro => se trabaja con 10 Areas
(
For i := 1 To 10 Do
(
if {@PromedioAreaMatB3} >= 11 then // 1
x:= x + 1
else if {@PromedioAreaComuB3} >= 11 then // 2
x:= x + 1
else if {@PromedioAreaCTAB3} >= 11 then // 3
x:= x + 1
else if {@PromedioAreaCiaSocialB3} >= 11 then // 4
x:= x + 1
else if {@PromedioAreaPerFaRRHHB3} >= 11 then // 5
x:= x + 1
else if {@PromedioAreaEduFisB3} >= 11 then // 6
x:= x + 1
else if {@PromedioAreaInglesB3} >= 11 then // 7
x:= x + 1
else if {@PromedioAreaEduRegB3} >= 11 then // 8
x:= x + 1
else if {@PromedioAreaEduTraB3} >= 11 then // 9
x:= x + 1
else if {@PromedioAreaEduArtB3} >= 11 then // 10
x:= x + 1
)

)

else if {@Grado} = 8 then // si el Grado son : 4to, 5to => se trabaja con 8 Areas
(
For i := 1 To {@Grado} Do
(
if {@PromedioAreaMatB3} >= 11 then // 1
x:= x + 1
else if {@PromedioAreaComuB3} >= 11 then // 2
x:= x + 1
else if {@PromedioAreaCTAB3} >= 11 then // 3
x:= x + 1
else if {@PromedioAreaCiaSocialB3} >= 11 then // 4
x:= x + 1
else if {@PromedioAreaPerFaRRHHB3} >= 11 then // 5
x:= x + 1
else if {@PromedioAreaEduFisB3} >= 11 then // 6
x:= x + 1
else if {@PromedioAreaInglesB3} >= 11 then // 7
x:= x + 1
else if {@PromedioAreaEduTraB3} >= 11 then // 8
x:= x + 1

)

);
x


el resultado que me da es que cuenta todas las areas pero no las diferencias que son desaprobadas me devuleve 10 algo esta mal