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 (ibegin
   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.