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.