Delphi-Quellcode:
var
s : string;
i : integer;
begin
s := edit1.text;
while length(s) > 0 do
begin
i := pos(',',s);
if i = 0 then
i := length(s) +1;
Edit2.Text := Edit2.Text + copy(s,1,i-1) + '-';
delete(s,1,i);
end;
anstatt edit2 kannst du ein array o.ä. nehmen
edit : der bindestrich soll nur die trennung der zahlen verdeutlichen kann also entfernt werden