строки Опции

[TAHK]

Помогите решить задачу....плз
Дана строка символов, состоящая из слов (слова разделены пробелами). Группы символов, разделенные пробелами и не содержащие пробелы внутри себя, будем называть словами. Напечатать эту же последовательность слов, но в обратном порядке.

[volvo]

Угу... А сколько пробелов добавлять? Надо же это где-то запомнить... Иначе разделители просто потеряются, а это может быть недопустимо... Надо разворачивать "на лету"...

var
  s: string;
  i, again: integer;

begin
  s := 's    start finish     end    begin      ';

  i := length(s);
  while i >= 1 do begin

    while (i >= 1) and (s[i] = ' ') do begin
      write(s[i]); dec(i)
    end;

    while (i >= 1) and (s[i] <> ' ') do dec(i);
    again := i + 1;
    if again >= 1 then
      while (again <= length(s)) and (s[again] <> ' ') do begin
        write(s[again]); inc(again);
      end;

  end;
  writeln;
end.

[TAHK]

Спасибо большое!