Решить по информатике через 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.

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

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.