RosettaCodeData/Task/Split-a-character-string-based-on-change-of-character/PascalABC.NET/split-a-character-string-based-on-change-of-character.pas

##
var s := 'gHHH5YY++///\';
s.AdjacentGroup.Select(a -> a.JoinToString).JoinToString(', ').Print