переписать исходный текст без запятых

[Санко]

Имеется некоторая последовательность символов. Образовать новую последовательность, включив в нее символы исходной, кроме запятых. (использовать склейку «+»)(не использовать pos, delete, copy…)

[Serge_Bliznykov]

sNew := '';
for i:=1 to Length(sOld) do
  if sOld[i]<>',' then sNew := sNew + sOld[i];