program lab8;
//uses crt;
var
s : string;
a:array[1..1000] of char;
i,m,j : integer;
k:char;
begin
m:=0;
readln(s);
for i:=1 to length(s) do begin
if (s[i] in ['0'..'9'])
then
a[i]:=s[i];
m:=m+1;
end;
 writeln(m);
for i := 1 to m do
 write (a[i]:1);
for i := 1 to m-1 do
 for j := 1 to m-i do
 if a[j] > a[j+1] then begin
 k := a[j];
 a[j] := a[j+1];
 a[j+1] := k
 end;
 writeln ('Отсортированный массив: ');
 for i := 1 to m do
 write (a[i]:1);
for i:=1 to length(s) do
begin
if (s[i] in ['0'..'9']) then
s[i]:=a[i];
end;
WriteLn('Полученная строка: ', s);
//Readln ;
end.