Vérifier qu'une chaîne est formée de caractères alphabétiques distincts
Fonction Vérif(ch : chaine) : booléen Début i ← 0 Tant que (i<long(ch)) et (pos(ch[i],ch)=i) Faire i ← i+1 Fin Tant que Retourner i = long(ch) Fin