Procedure en pascal...

soit (ch) la chaine a saisir
donc la procedure sera:

procedure saisir_chaine(var ch:string);
var i:integer; test:boolean;
begin
repeat
write('donner une chaine ');
readln(ch);
for i:=1 to length(ch) do
begin
if (ch[i] in ['a'..'z']) or (ch[i] in ['A'..'Z']) then
test:=true
else test:=false;
end;
until (length(ch) <= 50) and (test=true);
end;

j'espere que ça vous aide!!!

Vraiment merci beaucoup xmaster2216...c'est vraiment ce ça que je cherche...et si possible si tu peu me donne une autre procédure qui permet de trier cette chaine comme ça :
si ch= "afAbzKOiKvMx"

alors elle sera "FKMAObzkvxai"

c'est à dire elle rangera chacun de consonnes et voyelles majuscule et minuscule ...je vous remercie....