Помогите обрисовать метод!!!uses crt;var s, sn, sg: string; i:

А что тут особо обрисовывать? Считывается строчка, позже в ней делается корявая попытка поменять найденную точку троеточием. Так как при такой подмене появляются две дополнительные точки, под подмену попадает 2-ая из вставленных точек и заменяется еще на две... строчка непрерывно растет на две точки, они умножаются... а цикл идет до первоначальной длины строки.
Итог - после первой точки в строчку вставляются точки в количестве, одинаковом количеству знаков, считая от позиции этой точки до конца строки в её первоначальном виде. Другие символы из первичного вида строки останутся постоянными, следуя за приобретенным комплектом точек.

Uses crt;
var s, sn: string;
  i: integer;
begin
  write('s=');
  readln(s);

  sn := '';
  for i := 1 to length(s) do   
    if s[i] = '.' then
      sn := sn + '...'
    else sn := sn + s[i];
   
  write('s=', sn);
  readkey;
end.

Вводим строчку. Пробегаем по всей ее длине и каждый знак по очереди записываем в новуйу строку, если же встречаем точку, то записываем заместо нее троеточие
Короче - сменяем все точки строки на троеточия