Дана строка-предложение на русс. яздана строка-предложение на русс. яз подсчитать кол-во содержащихся в строке знаков паскаль авс нужно !

Uses crt;
var i,ans:integer;
str:string;
begin
ans:=0;
readln(str);
for i:=1 to length(str) do
if (str[i]='.') or (str[i]=',') or (str[i]=';') or (str[i]=':') or (str[i]='?') or (str[i]='!')
then ans:=ans+1;
writeln(ans);
end.