RosettaCodeData/Task/Tokenize-a-string/PascalABC.NET/tokenize-a-string.pas

begin
  var s := 'Hello,How,Are,You,Today';
  var strings := s.Split(',');
  Print(strings.JoinToString('.'));
end.