Bonjour, voici mon code. trois erreurs s'affichent à la compilation :

1. Unknow identifier pour la ligne Trim(...)
2. Ordinal expression expected pour la ligne Ord(...)
3. Unknow identifier pour la ligne UpperCase(...).

Par Trim(...), je voudrais supprimer les espaces de début et de fin de la chaîne entrée.
Par Ord(...) , je voudrais obtenir le code Ascii de la première lettre de la chaîne entrée.
Par UpperCase(...) , je voudrais mettre la première lettre de l'entrée en majuscule.

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
 
 
var
entree : string;
capitale : string;
ascii : integer;
 
begin
 
...
readln(entree);
entree := trim(entree);
capitale := copy(entree,1,1);
ascii := ord(capitale);
if ascii > 96 then
        capitale := UpperCase(capitale);
...
Je ne vois pas du tout ce qui ne convient pas. Merci de votre coup de pouce.