Дан текст. заменить в нём каждую точку многоточием.

моё решение:

program z1;
uses crt;
var
s:string[100]; s1,s2: string[10]; i,p: integer;
begin
clrscr;
write ('введите текст:  ');
readln (s);
for i:=1 to 5 do
 begin
  p:=pos('.',s);
  s1:=copy(s,1,p-1)+'...'+copy(s,p+1,length(s));
 end;
writeln (s1);
readln;
end.

М

Теги !

У меня заменяет только первую точку, а остальные нет.
Подскажите ПОЖ-ТА!!! что нужно дописать чтоб КАЖДУЮ точку он заменял многоточием.

uses crt;
var
   s:string;
   i:byte;
begin
     clrscr;
     readln(s);
     i:=0;
     while i<= length(s) do begin
           inc(i);
           if s[i]='.' then begin
              insert('..',s,i);
              inc(i,2)
           end;
     end;
     writeln(s);
     readkey
end.

Большое Спасибо!!!