Remplit V de chaînes alphabétiques en validant via la fonction alpha.
Procédure Remplir (@V:tab; N:entier) Début Pour i de 0 à N-1 faire Répéter Lire(V[i]) Jusqu'à alpha(V[i]) = Vrai Fin pour Fin