{* Задача 10 *}

Unit ZADACH10;
Interface
Implementation
Begin
 writeln('Дана строка текста. Отсортировать символы по алфавиту с 4 позиции по 15 позицию в строке. ');
End.

Program zadach10;

Uses zadach10.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  s     : String;
  i     : integer;
  j     : integer;
  n_min : integer;
  min   : char;
  temp  : char;
Begin
  read(s);
  For i := 4 To 15 Do {* Переменная i увеличивается с 4 до 15 *}
  Begin
    For j := 4 To 14 Do {* Переменная j увеличивается с 4 до 14 *}
    Begin
      If s[j] > s[j + 1] Then
      Begin
        temp := s[j];
        s[j] := s[j + 1];
        s[j + 1] := temp;
      End;
      
    End;
    
  End;
  write (s);
End.