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

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

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

Спасибо вам огромное!

Пожалуйста.

var s:string; l,p:integer;beginreadln(s);l:=length(s);p:=pos('-',s);s:=copy(s,p+1,l-p)+'-'+copy(s,1,p-1);writeln(s);end.Пример:город-геройгерой-город

PascalABC.NETВерсия 3.3. сборка 1583 (25.11.2017)var s,s1,s2: string;begin  write('s='); readln(s);   s1:=copy(s,1,pos('-',s)-1);    s2:=copy(s,pos('-',s)+1,length(s)-pos('-',s));  write('s=',s2+'-'+s1);end.