ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!! УМОЛЯЯЯЮ!!!!!! ОЧЕНЬ СРОООЧНО!!!!!!!!!!!
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в обратном порядке.
паскаль

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

begin
  ReadlnString(gt;).ToWords.Reverse.Println
end.

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

Var s,s2: string; i: integer;
begin
writeln (Введите строку:);
readln (s);
s:=Trim(s);
s:=s+ ;
while length(s)gt;0 do begin
  i:=1;
  while (s[i]lt;gt; ) and (ilt;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.
---------------------------------------
Введите строку:
  мама    мыла  раму   
раму мыла мама
---------------------------------------