Зашифровать текст

[Lems11]

Зашифровать текст файла путем переписывания символов каждого слова в порядке обратном их следованию в слове. Например,
входная строка: «Я изучаю Pascal», результирующая строка: «Я юачузи lacsaP».

[raxp]

дожились...

 t:= tstringlist.create;
 t.delimiter:= ' ';
 t.delimitedtext:= 'Я изучаю Pascal';

 for j:=0 to 2 do begin
  for i:= length(t[j]) downto 1 do
   outs:= outs + t[j][i];
  outs:= outs +' ';
 end;

[Lems11]

Большое спасибо! выручил)))

[DeKot]

«Я изучаю Pascal», результирующая строка: «Я юачузи lacsaP».

Правильнее будет - « lacsaP юачузи Я ». Остальное, естественно, по методу raxp

[Lems11]

DeKot спасиба,
но нам надо именно так:
«Я изучаю Pascal», результирующая строка: «Я юачузи lacsaP».)

[Serge_Bliznykov]

var s,w : string;
  i,j : integer;
begin
  s := 'Мало просто любить Pascal на нём ещё и писать надо';
  
  s := s + ' ';
  w := '';
  WriteLn;
  for i:=1 to length(s) do begin
    if s[i]<>' ' then w := w+s[i]
    else {пробел нашли, значит это конец слова}
     begin
       for j:=Length(w) downto 1 do Write(w[j]);
       Write(' ');
       w := '';
     end;
  end;
  readln;
end.

[Lems11]

Мало просто любить Pascal на нём ещё и писать надо

Золотые слова!)