PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
procedure wcSwap(var s:string);
begin
var n:=s.Length;
if n>1 then Swap(s[1],s[n])
end;
begin
var a:=ReadlnString.ToWords;
for var i:=0 to a.Length-1 do wcSwap(a[i]);
a.JoinIntoString(' ').Println
end.
Пример
А роза упала на лапу Азора
А аозр апалу ан уапл азорА