program Ten_ten_ten;

var
  F,G      : Text;
  i,n      : Integer;
  S,newStr : String;
  Ten      : String[3];

begin
  Assign(F,'f.txt'); Reset(F);
  Assign(G,'g.txt'); Rewrite(G);

  writeln('1 - . ten');
  writeln('2 - ... ten');
  write('Input: ');
  repeat
     readln(n);
  until (n=1) or (n=2);

  if n=1 then Ten:='.' else Ten:='...';
  while not(Eof(F)) do
  begin
     readln(F,S);
     i:=1; newStr:='';
     while (i<=length(S)) do
     begin
      if S[i]='.' then
      begin
         while (S[i]='.') and (i<length(S)) do Inc(i);
         newStr:=newStr+Ten;
      end;
      if i=length(S) then break;
      newStr:=newStr+S[i];
      Inc(i);
     end;
     writeln(G,newStr);
  end;
  Close(F);
  Close(G);
end.

program Ten_ten_ten;

var
  F,G      : Text;
  i,j      : Integer;
  n,Poz    : Integer;
  S,newStr : String;
  Ten      : String[3];
  Ch       : Char;

begin
  Assign(F,'f.txt'); Rewrite(F);
  Assign(G,'g.txt'); Rewrite(G);

  repeat
     write('Сформировать файл ? (y/n): ');
     readln(Ch);
     Ch:=UpCase(Ch);
  until (Ch='Y') or (Ch='N');
  if Ch = 'N' then Exit;
  for i:=1 to 20 do
  begin
     for j:=1 to 20 do write(F,Chr(Random(8)+40));
     writeln(F);
  end;

  Close(F);
  Assign(F,'F.txt');Reset(F);

  writeln('1 - . ten');
  writeln('2 - ... ten');
  write('Input: ');
  repeat
     readln(n);
  until (n=1) or (n=2);
  if n=1 then Ten:='.' else Ten:='...';

  while not(Eof(F)) do
  begin
     readln(F,S);
     i:=1; newStr:='';
     Poz:=1;
     while (Pos('..',S)>0) do
     begin
       Poz:=Pos('..',S);
       newStr:= newStr + Copy(S,1,Poz-1) + Ten;

       while (Poz<=length(S)) and (S[Poz]='.') do Delete(S,Poz,1);
       Delete(S,1,Poz-1);

     end;
     if newStr='' then writeln(G,S) else writeln(G,newStr+S);
  end;
  Close(F);
  Close(G);
end.