M:=0; for i:=1 to length (a)do if copy (a,i,1)=(e) then m:=m+1 writin (m); Нужно место е поставить точку . Помогу пожалуйста очень нужно

m:=0; for i:=1 to length(a) do  if copy (a,i,1)='.' then m:=m+1; writeln(m); А лучше так: m:=0; for i:=1 to length(a) do  if a[i]='.' then m:=m+1; writeln(m);