решить на паскале

[MKS23]

для данной строки S,вывести все ее символы в возрастающем порядке

[Hacker19_90]

как пример! Можно через
вот так

[Serge_Bliznykov]

посмотрите ЭТУ тему


а вот если символы НЕ ДОЛЖНЫ повторяться, то такую задачу проще рещить через использование множества:

var mn : set of char;
   s : string;
   i : integer;
   ch : char;
begin
   WriteLn('Vvedite stroku:');
   Readln(s);
   mn := [];

   for i:=1 to length(s) do Include(mn, s[i]);

   for ch:=#0 to #255 do
    if ch in mn then Write(ch);
   WriteLn;

   Readln;
end.