Error : Illegal expression

Bonsoir tout le monde,

mon binôme et moi avons réalisé ce programme et on a un message d’erreur "100 / 11 Fatal: Syntax error, ; expected but identifier AFFICHERRES found" et un deuxième message "100 / 11 Fatal: Syntax error, ; expected but identifier AFFICHERRES found"...
Je ne comprend pas d'où vient cette erreur ; j'ai regardé plusieurs fois et je ne trouve pas comment la réparer.

Voici en pièce jointe notre programme, merci pour vos conseils.

Bonsoir !

Il manque un end à la fin de la procédure verificationNbChamp.

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure verificationNbChamp; begin {Vérification que le nbre de bout. de champ est un multiple de 6} if (nbBtChamp mod 6 = 0) then begin calcul; end else begin writeln ('Erreur commande: Nombre de bouteilles de champagne!'); end; // <--- end;

---

Dans la procédure afficherRes, il manque des virgules (et même une variable à un endroit).

Une fois ces corrections faites, le code se compile, mais il reste des erreurs. Courage ! ;)