Récupérer une chaîne de caractères dans une pile

Bonjour,
j'ai implanté un TDA Pile.
Maintenant je souhaite créer une procédure qui, quand je rentre une chaîne de caractères, empile les caractères qui la composent dans la pile.
Je ne vois pas comment faire, merci d'avance pour votre aide.

Sie,

Tu as implémenté ta pile, et tu ne sais pas t'en servir ?

C'est pour le moins curieux. :)

Oui en effet, en fait je dois faire le tri par insertion, pour le code du tri je vois comment le faire, c'est juste pour recuperer les caracteres un par un et les empiler que je vois pas trop :S

Voici ce que j'ai fait mais sa ne marche pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure Lecture (var pile : Pile); var x : Element; begin if eoln then begin readln; pile := PileVide end else begin read(x); Empile(x, Lecture); end; end;

---