[PS11011010]

Могу ошибаться, но попробуй так:

Код:

for i:=1 to length(s1) do begin
 if s1[i]='.' then s2:=s2+'...'
  else s2:=s2+s1[i];
end;