Сортировка цифр в строке.

[NikiToZz_]

Доброго времени суток.. Сегодня задался вопросом, как сортировать цифры в строке от большей к меньшей.

Возникло 2 идеи:

1) Как в массивах, сравнивать соседей, с помощью boolean реализовывается неплохо и быстро.

2) Сравнивать каждую цирфу с каждой непосредственно. И самую большую выносить вперед и так далее.. Этот вариант я реализовать не смог, потому и пришел за помощью.

  read(a);
  str(a,st1);
  k:=length(st1);
  while length(st2)<k do
    for i:=1 to length(st1) do   begin
        for j:=1 to length(st1) do
            if ord(st1[i])<ord(st1[j]) then
               break;
               st2:=st2+st1[i];
               delete(st1,i,1);
            end;

Все основывается на том, что, допустим, '9' по ord больше, чем '5'.

Паскаль берет цифру , сравнивает ее со всеми другими по тому же ord, и если он находит любую , что по орду больше его, прерывает цикл, в котором находится, он берет 2 цифру из первого цикла.... Тем самым он найдет цифру, которая больше всех по орду, тогда условие его пропустит дальше и эту цифру он занесет во вторую строку.

Может, реализую не так.. Что скажете?

[Аватар]

  s:=Label1.Caption;
  for i:=1 to Length(s)-1 do
    for j:=i+1 to Length(s) do
      if s[j]>s[i] then begin
        c:=s[i];
        s[i]:=s[j];
        s[j]:=c;
      end;
  Label2.Caption:=s;

Чтобы не понятней было можно свап такой использовать

        s[i]:=Chr(Ord(s[i]) xor Ord(s[j]));
        s[j]:=Chr(Ord(s[i]) xor Ord(s[j]));
        s[i]:=Chr(Ord(s[i]) xor Ord(s[j]));

Лэйблы убери, то ж у меня для делфи