Строка состоит из двух слов разделенным пробелом, поменять эти слова местами — Pascal(Паскаль)

var s,s1:string;
begin
writeln('Stroka:');
readln(s);
s1:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
s:=s+' '+s1;
write(s);
readln();
end.