Во введённом предложении определить количество знаков препинания — Pascal(Паскаль)

var
  a: string;
  i,b: byte;
 
begin
  write('Введите текст: ');
  readln(a);
  for i := 1 to length(a) do
    if a[i] in ['!','.','?',';',','] then inc(b);
  write('В предложении ',b,' знаков препинания!');
  readln
end.