Exemple 2

program Test ;

var

   s1, s2 : string;

   i : integer;

   c : char;

begin

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

   readln(s1); s2 := s1;

   for i := 1 to length(s1) do

      if s[i] in ['a'..'z'] then

      begin c:=chr( ord(s1[i] - ord('a') + ord('A') );

         s2[i] := c;

      end;

   writeln;

   writeln('------------------------------------------------');

   writeln;

   writeln('L''ancienne valeur était : ', s1);

   writeln('La nouvelle valeur est : ',s2);

end.