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.