В
текстовом файле поменять порядок слов на обратный, т.е. первое слово поменять с
последним, второе - с предпоследним и т.д.
Ребяяяяят. Ну помогите!!! Вообще не понимаю как сделать!!!

var  i, n: integer;  s, t: string;begin  readln(s);  s := ' ' + s;n := length(s);  for i := length(s) downto 1 do    if s[i] = ' ' then      begin      t := t + copy(s, i + 1, n) + ' ';      n := 0;      end      else n := n + 1;  writeln(t);    end.