Исправить задачку немного. PASCAL.

[АполинАрия]

Помогите пожалуйста исправить 2 задачки
Pascal.

1)
Задан исходный текстовый файл. Переписать его компоненты в новый файл, заменив при этом каждую группу стоящих рядом точек многоточием. Группой считается любое количество точек больше чем 1. Многоточие – три точки.

Код:

Program_ 1;
var
f,g:text;
s:string;
i:byte;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g);
 while not eof(f) do
   begin
        readln(f,s);
           while pos('...',s)>0 do
           delete(s,pos('...',s),1);
           for i:=length(s) downto 1 do
              if (s[i]='.')and(s[i+1]='.') 
                    then insert('.',s,i);
       writeln(g,s);
   end;
close(f);
close(g);
write('Fail G zapisan!');
readln
end.

[Stilet]

Могу предложить такой вариант замены в строке:

   var e,s:string;i:integer;
begin
 s:='hj.hj...jh..ghj....j..j.k';
 s:=s+' ';
 i:=1; while i<length(s) do begin
  if (s[i]='.')and(s[i+1]='.') then begin
   while s[i]='.' do inc(i); dec(i);
   e:=e+'...';
  end else e:=e+s[i];
  inc(i);
 end;
write(e);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[АполинАрия]

Мне вообщем препод говорил что через строки эти задачи не решаются
Но я тоже например не знаю как по-другому(

Stilet
Спасибо огромноЕ