задача с заменой символов Опции

[Витёк]

Нам задали сделать задачку. Вот условие: А) заменить все (!) знаки на (.)
Б) затем все точки заменить на (...).
Первую часть я сделал так:

 var s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i] ='!' then s[i]:='.';
writeln(s);
end.

Ну а вот с заменой точки в этой же программе выходит ошибка. Я хотел сделать это также как и с (!), но не получилось. Объясните пожалйста что я не так сделал.