Pascal/Turbo Pascal - Listas para leer y almacenar la información de las personas que desean participar en un casting

Hola buenas tardes. Tengo un problema: Una productora nacional realiza un casting de personas para la selección de actores extras de una nueva película, para ello se debe leer y almacenar la información de las personas que desean participar de dicho casting. De cada persona se lee: DNI, apellido y nombre, edad y el código de género de actuación que prefiere (1: drama, 2: romántico, 3: acción, 4: suspenso, 5: terror), etc.
En una parte me pide saber que generos son los mas elegidos, pero no se como llevar a cabo esa parte del codigo ni como podria contarlos, sin utilizar una variable para cada genero

Hola, te dejo un trozo de codigo que te puede ayudar.
Salu2.