Cette procédure remplit un tableau avec des chaînes contenant uniquement des lettres alphabétiques.
Procédure remplir (@t:tab; n:entier) Début Pour i de 0 à n-1 faire Répéter Ecrire ("t[",i,"] = "); Lire (t[i]) Jusqu'à (verif(t[i])=vrai) Fin Pour Fin