Преобразовать исходную строку, заменив каждую из групп стоящих рядом двух или более точек многоточием (т.е. тремя точками).

uses crt; var s:string;      i,j:byte; begin  clrscr; writeln('Введите строку, содержащую точки, как по 1, так и группами:'); readln(s); if (length(s)>1)and(copy(s,1,2)='..') then{если в начале строки более 1 точки}   begin                                     {или строка вообще из точек}    while (s[1]='.')and(length(s)>0) do delete(s,1,1);    insert('...',s,1);  end; if(length(s)>2)and(s<>'...') then{если осталось более 2 сиволов, начнем                                   проверять с конца}   begin   i:=length(s)-2;   while i>=1 do   if (s[i]<>'.')and(copy(s,i+1,2)='..') then    begin     while (s[i+1]='.')and(i+1<=length(s)) do delete(s,i+1,1);      insert('...',s,i+1);      i:=i-1;     end   else i:=i-1;  end; write(s); readln end.