Плз помогите , решительно задачу как нибуть по проще . на языке pascal

begin ReadString().ToWords.Reverse.Print end.

А иначе Вы занесете в s результат вызова Print. Он будет, мягко говоря, неожиданным.

vars,s1,s2:String;beginreadln(s);s:=s+' ';while s<>'' doBegins2:=copy(s,1,pos(' ',s));insert(s2,s1,1);delete(s,1,pos(' ',s));End;writeln(s1);end.

begin readstring().ToWords.Reverse.Print end.