Question

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

Answer 1

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.