[Kaizen]

const long=10;
type chaine=string[long];
var suite:chaine;

Procedure Tri (var t:chaine);
var i,j:integer;
Procedure Echange;
var C:char;
begin
C:=t[i];
t[i]:=t[j];
t[j]:=C
end;
begin
for i:=1 to length(t) do
for j:=i+1 to length(t) do
if t[i]>t[j] then Echange;
end;

begin
writeln('Donnez une suite d''au plus ',long,' caracteres');
readln(suite);
Tri(suite);
writeln('Voici la procedure suite : ',suite);
readln;
application.terminate
end;


end.