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

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString('>').ToWords.Reverse.Println
end.

Пример
> А роза упала на лапу Азора
Азора лапу на упала роза А

Var s,s2: string; i: integer;
begin
writeln ('Введите строку:');
readln (s);
s:=Trim(s);
s:=s+' ';
while length(s)>0 do begin
  i:=1;
  while (s[i]<>' ') and (i<length(s)) do i:=i+1;
  s2:=LeftStr(s,i)+s2;
  delete(s,1,i);
  s:=TrimLeft(s);
end;
s2:=Trim(s2);
writeln (s2)
end.

Введите строку:
  мама    мыла  раму   
раму мыла мама