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

var   s : integer;   t, t1,t2: string;b1: boolean; begin  b1 := false;   writeln('введите строку');   readln(t);   t2 := '';   repeat     p1 := pos(' ',t);     if p1>0 then     begin          t2 := copy(t,1,p1-1);        if  length(t2)>0) then  t1 := t2 + ' ' + t1;        delete(t,1,p1);    end    else if (length(t)>=1) then          //обработка кнца строки    begin       t2 := t;       t1 := t2 + ' ' + t1;       b1 := true;     end     else b1 := true;       // еще одна проверка, если пследний символ строки - пробел     until (b1 = true);     writeln('Ответ ',t1) end.