Значением строки служит слово, содержащее дефис. Поменять местами части слова, стоящие до и после дефиса - Pascal ABC

Формулировка задачи:

Значением строки служит слово, содержащее дефис. Поменять местами части слова, стоящие до и после дефиса.

Решение задачи: «Значением строки служит слово, содержащее дефис. Поменять местами части слова, стоящие до и после дефиса»

Листинг программы

uses crt;
var s,s1,s2: string;
begin
repeat
write('s='); readln(s);
until pos('-',s)<>0;
s1:=copy(s,1,pos('-',s)-1);
s2:=copy(s,pos('-',s)+1,length(s)-pos('-',s));
s:=s2+'-'+s1;
write('s=',s);
end.

Объяснение кода листинга программы

Используется модуль CRT (код для работы с консолью).
Введены три переменные типа string: s, s1, s2.
Программа запрашивает ввод строки до тех пор, пока в ней не будет найден дефис.
Дефис и его позиция сохраняются в переменных s1 и s2 соответственно.
С помощью функции copy строка s разбивается на две части: до дефиса (s1) и после дефиса (s2).
С помощью операции конкатенации (сложения) создается новая строка s, в которой части слова меняются местами.
Новая строка выводится на экран.