Строки Опции

[-Snake-]

Отредактировать заданное предложение, заменяя многоточие точкой. Многоточием считается "...". Вообще допереть никак не получается, уже мозги пухнут от этого Паскаля, а завтра экзамен. Помогите пожалкйста.

[volvo]

i := 1;
while i <= length(s) - 2 do begin
  if copy(s, i, 3) = '...' then begin
    { Нашли многоточие, удалить 2 точки из трех, через Delete }
  end;
  inc(i);
end;