Bonjour

Je suis novice dans la programmation.

Je voudrais savoir comment faire pour trouver la première et la dernière lettre d'un mot sous Turbo Pascal. Voici ce que j'ai fait mais il y a une erreur car ça ne fonctionne pas. Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
var
   mot : string
   I     : bye
begin
   write ('Entrez votre mot: ');
   readln;
   for I:=1 to length(mot) do
   mot[I]:= upcase (mot[I]);
   writeln ('Votre mot est :',mot,'il commence par : et se termine par');
   readln
end.
Ensuite je voudrais prendre les 2 premières lettre d'un mot et les 2 dernières d'un autre mot et faire un nouveau mot avec ces 4 lettres.

Merci à tous de votre aide