Паскаль дана строка, состоящая ровно из двух слов, разделенных пробелом. переставьте эти слова местами. результат запишите в строку и выведите получившуюся строку. при решении этой нельзя пользоваться циклами и инструкцией if.

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString.ToWords.Reverse; s.Println
end.

Var s, s1, s2, probel: string;
dlina, probelPos: integer;
begin

readln(s);

probel := ' ';
probelPos := pos(probel, stroka);
dlina = length(s);

s1 := copy(s, 1, probelPos-1);
s2 := copy(s, probelPos+1, dlina);
s := s2 + probel + s1;

writeln(s);

end.