Упорядочить согласные в порядке, обратном алфавитному

const
  sn=['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
type
  tset=set of char;
var
  s,st,str:string;
  sen:tset;i:byte;
begin
  s:='компьютер';
  writeln(s);
  sen:=[];st:='';
  for i:=1 to length(s) do
    if s[i] in sn then
      sen:=sen+[s[i]]
    else st:=st+s[i];
  for i:=32 to 255 do
    if chr(i) in sen then
      str:=chr(i)+str;
  s:=str+st;
  writeln(s);
  readln
end.

const
   sn = ['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
 
var
   s : string;
   pv, i, j : integer;
   t : char;
begin
   s:='отлично';
   writeln(s);
 
   for i := 1 to length(s) do
   begin
      for j := length(s) downto i+1 do
      begin
 
         pv := j - 1; // ищем предыдущую согласную букву
         while (pv > 0) and not(s[pv] in sn) do dec(pv);
         if pv = 0 then continue;
 
         if (s[j] in sn) and (s[pv] < s[j]) then // и смотрим, в правильном ли они порядке
         begin
            t := s[pv];
            s[pv] := s[j];
            s[j] := t;
         end;
      end;
   end;
 
   writeln(s);
   readln
end.

const
   sn = ['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
 
var s : string;
    used : array[1..256] of integer;
    i , j : integer;
begin
   s := 'отлично';
   writeln(s);
   FillChar(used , sizeOf(used) , 0);
   for i := 1 to length(s) do
       inc(used[ord(s[i])]);
   j := 256;
   for i := 1 to length(s) do
       if s[i] in sn then begin
           while (true) do begin
               if (used[j] > 0)and (chr(j) in sn) then break;
               j := j - 1;
           end;
           s[i] := chr(j);
           used[j] := used[j] - 1;
       end;
   WriteLn(s);
   readln;
end.