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

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.

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