Пожалуйста, помогите решить задачу по информатике через PascalABC.

Дана строка, содержащая дефис (например: город-герой). Поменяйте 2 слова между собой,
чтобы получилось наоборот (герой-город).

Заранее спасибо.

Var s:string; l,p:integer;
begin
readln(s);
l:=length(s);
p:=pos(-,s);
s:=copy(s,p+1,l-p)+-+copy(s,1,p-1);
writeln(s);
end.

Пример:
город-герой
герой-город

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.