Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в обратном порядке. 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.