Sería mejor si continuaras con el mismo hilo que has iniciado en vez de iniciar otro con el mismo tema.
Respondiendo a tu requierimiento: ¡pues contándolos, obvio!.
A ver. Voy a suponer que tienes un vector de siete elementos, cada uno representa una cateogría, voy a suponer que tienes un vector cada uno con los datos de un cliente ya cargados.
Simplemente recorre el vector de clientes con un ciclo. Preguntas si sepso = mujer y si producto entregado = true, si se cumplen estas dos condiciones, aumenta un campo contador en el vector de categorías creado para tal efecto usando el valor de la categoría almacenado en el registro de clientes como índice en el vector de categorías.
Obviamente se requiere que los vectores estén compuestos de registros creados a tal efecto. Por ejemplo:
const
N=100;
type
TStr20=string[20];
Tsepso=(Hombre, Mujer);
TCategoria=record
Nombre: TStr20;
Contador: integer;
end;
TCliente=record
Nombre, apellido, domicilio: TStr20;
{ resto de los campos }
sepso: Tsepso;
ProdEntregado: boolean;
Categoria: integer;
end;
var
Clientes=Array[1..N] of TCliente;
Categorias=Array[1..7] of TCategoria;
{ .. }
for I:=1 to N do
begin
if (Clientes[I].sepso=Mujer) and (Clientes[I].ProdEntregado=true) then
inc(Categorias[Clientes[i].Categoria].Contador);
end; { for }
{ luego }
for I:=1 to 7 do
WriteLn('Cantidad de mujeres a las que se le entregó el producto con categoría: ',Categorias[I].Nombre,' son: ', Categorias[I].Contador);
Very easy, right? ;).
