Bonjour

Je n'ai pas compris pourquoi mon programme ne marche pas.

Voilà l'énoncé :
Écrire un programme qui permet d'afficher le pluriel d'un mot donné selon seulement les règles suivantes (toute autre règle et les exceptions sont exclues) :
Si le mot se termine par un « u », on ajoute « X » : « eau » => « eaux »
Si le mot se termine par « el », la fin au pluriel devient « eux » : « Ciel » => « cieux »
Si le mot se termine par « al », la fin au pluriel devient « aux » : « animal » => « animaux » C
Le reste des mots au pluriel prend « S » à la fin.
Voilà mon programme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program pluriel;
uses wincrt;
var
mot:string;
 
 
begin
writeln('saisir un mot');readln(mot);
 
if  mot[length(mot)]='l' then
  if mot[length(mot)-1]='e'
  insert('eux',mot,length(mot)-2)
  else if mot[length(mot)-1]='a'
  insert('aux',mot,length(mot)-2)
 
 
else if  mot[length(mot)]='u' then
         insert('u',mot,length(mot)+1)
else
 insert('s',mot,length(mot)+1)
 end.