Un type tableau particulier : le type string

Il s'agit de tableaux de caractères. Se déclare de la façon suivante :
var s:string;.
Ce tableau a la particularité d'être de taille variable. La longueur d'une chaine est obtenue par la fonction prédéfinie length. Chaque élément de la chaine est accessible par s[i], l'indice i variant de 1 à length(s). La taille maximale d'une chaine de caractères est de 255 caractères. s[0] est un entier qui indique la taille de la chaine.
Exemple:

program chaines;
var s : string;

begin
    writeln('chaine = ');
    readln(s);
    writeln(s[1]);
    writeln(s[8]);
    writeln(length(s));
    writeln(s[length(s)]);
end.

Si l'utilisateur entre la chaine : "Bonjour tout le monde", le programme affiche à l'écran

B

21
e

 :

program voyelles;
var c : string;
    v : integer;

procedure comptev(ch:string; var nb:integer);
var i, L:integer;
begin
    L:=length(ch);
    nb:=0;
    for i:=1 to L do
        if (ch[i]='a') or (ch[i]='e') or (ch[i]='i') or 
           (ch[i]='o') or (ch[i]='u') or (ch[i]='y') then
                                                 nb:=nb+1;
end;

begin
writeln('Entrez une chaine svp');
readln(c);
comptev(c,v);
writeln('Le nombre de voyelles est',v);
end.