Exemple 1

program ExChaines;

var

   s, s1, s2 : string;

begin

   write('entrez une chaîne caractères : ');

   readln(s1);

   write('entrez en une autre : ');

   readln(s2); s:= s1 +' ' + s2 ;

   write('La longueur de la 1ère chaîne est ');

   writeln(length(s1));

   write('La longueur de la 2ème chaîne est ');

   writeln(length(s2));

   writeln;

   writeln('La chaîne finale est : ', s );

   writeln('Sa longueur est : ', length(s):3 );

end.