Интересная задача на строковый тип данных Опции

[Rocket]

Помогите пожалуйста написать программу:
Дана строка, состоящая из русских слов, разделённых пробелами (одним или несколькими).
Вывести строку, содержащую эти же слова, но расположенные в обратном алфавитном порядке.

[volvo]

Нужно решать непосредственно со строкой, а не разворачивать её в массив.

Ты сам хотел...

var
  s, _word, _max: string;
  i, start: integer;
  finished: boolean;

begin
  write('s = '); readln(s);

  s := s + ' ';
  repeat
    finished := true;
    _word := ''; _max := '';

    for i := 1 to length(s) do begin

      if s[i] = ' ' then begin
        if _word > _max then begin

          start := i - length(_word);
          _max := _word;

        end;
        _word := '';
      end
      else begin
        _word := _word + s[i];
        finished := false;
      end;

    end;

    if not finished then begin
      delete(s, start, length(_max));
      write(_max: length(_max) + 1);
    end
    else writeln;

  until finished;
end.