Подсчитать сколько знаков препинания в заданном с клавиатуры тексте

var q: string;
i,s: integer;
begin
readln(q);
for i:=1 to Length(q) do
begin
if (q[i]=',') or (q[i]='.') or (q[i]=':') or (q[i]=';') or (q[i]='!') or (q[i]='?') then
s:=s+1;
end;
writeln(s);
end.

если я забыл про какие то знаки препинания,то просто допиши их также как и остальные знаки)