// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:='метка'; Write(s);
s[1]:='с'; Write('-',s);
s:=s[:3]+'дло'; Write('-',s);
s:=s[1]+'оп'+s[4:]; Write('-',s);
s:=s[:3]+'вет'; Write('-',s);
s:='кю'+s[3:]; Writeln('-',s)
end.
Результат
метка-сетка-седло-сопло-совет-кювет