Вводится строка, состоящая из трёх слов. слова отделяются друг от друга ровно одним пробелом, в начале и конце строки пробела нет. поменять местами 1 и 2 слова. описать функцию: function zamena(s: string): string

Program p1;
uses crt;
var s1,s2,s3:string;
a:integer;
begin
read(s1);
a:= Pos(' ',s1);
s2:=Copy(s1,1,a-1);
Delete(s1,1,a);
s3:=s1+' ' +s2;
write(s3);
end.
 Проверь так ?