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

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016// Внимание! Если программа не работает, обновите версию!begin  ReadlnString('>').ToWords.Reverse.Printlnend.Пример> А роза упала на лапу АзораАзора лапу на упала роза А

var s,s2: string; i: integer;beginwriteln ('Введите строку:');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.---------------------------------------Введите строку:  мама    мыла  раму   раму мыла мама---------------------------------------