Incrémentation dans un Case Of

Bonsoir,

J'ai écrit un programme pour gérer un bus, qui comporte 3 classes (1ère, 2ème et 3ème) avec chacune des tarifs différents ; aussi chaque classe a des places fumeurs et d'autres non fumeurs.
J'ai mis en place un compteur pour le nombre de réservations, qui ne doit pas dépasser 40, un compteur pour le gain selon les prix (jusque là tout va bien ça s'incrémente).
Le seul probléme c'est l'incrémentation des réservations selon la classe et la position du siége (fumeur ou non fumeur) et je ne trouve pas où ça cloche :?
Est-ce que je pourrais partager mon programme en pièces jointes afin d'obtenir de l'aide ? Ou peut être y a-t-il une astuce avec les boucles, en sachant que j'ai utilisé des boucles 'case of' et 'while' ?

Oui poste le code qui ne fonctionne pas, avec les déclarations des types des variables utilisées aussi.

attention CASE OF n'est pas une boucle mais un sélecteur.