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.
Изменить программу так, чтобы она удаляла все точки изтекста после нахождения их количества