[CODEVS1205]单词反转

给出一个英语句子，希望你把句子里的单词顺序都翻转过来

这个题算是第二次做了……第二次用的C++然而还是写不出来

思路1：用一个数组把读过去的单词存起来，再逆序输出即可

思路2：读入句子后，先在句子开头加一个“ ”，然后开始循环，不遇到空格的话，t++（t是每个单词的位数），每遇到一个空格（i），就开始输出从第（i+1）开始后T位的单词。

var str,p:string; t,i:longint;
begin
readln(str);
p:=' ' ;
str:=concat(p,str);
  for i:=length(str) downto 1 do
      if copy(str,i,1) <> ' ' then t:=t+1
       else  begin
                         write(copy(str,i+1,t));
                         write(' ');
                end;
end.