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

Var s:string; k:integer;
begin
writeln('Введите строку');
readln(s);
k:=POS(' ',s);
s:=COPY(s,k+1,length(s)-k)+' '+COPY(s,1,k-1)+'!';
writeln(s);
end.