Даны две строки s1: =d,e,f и s2: =567.получить строку d5e6f7

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s1:=ReadlnString('S1=').Replace(',','');
  var s2:=ReadlnString('S2=');
  var s:=S1.Interleave(S2).JoinIntoString('');
  Writeln(s)
end.

Пример
S1= d,e,f
S2= 567
d5e6f7