Var s: string; k, i: integer; begin readln(s); k: =0; for i: =1 to length(s) do if s[i]='.' then k: =k+1; writeln('количество точек в строке=',k); end. изменить программу так, чтобы она удаляла все точки изтекста после нахождения их количества

Var s:string; k, i, n:integer;
begin
readln(s);
k:=0; 
n:=Length(s);
i:=1;
while (i<=n) do
begin
   if s[i]='.' then
   begin
      k:=k+1;
      Delete(s,i,1);
      i:=i-1;
      n:=n-1;
   end;
   i:=i+1;
end;
  writeln('количество точек в строке=',k);
  writeln('новая строка:   ',s);
end.