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

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. Если я забыл про какие то знаки препинания, то просто допиши их также как и остальные знаки)