Дана строка, содержащая текст, заканчивающийся точкой. Подсчитать количество слов содержащих 4 символа- Pascal(Паскаль)

var
  a, c: string;
  i, b: byte;

begin
  readln(a);
  for i := 1 to length(a) do
  begin
    if not(a[i] in [' ', '!', ',', '.', ';']) then
      c := c + a[i];

    if (a[i] in [' ', '!', ',', '.', ';']) or (i = length(a)) then
    begin
      if c <> '' then
        if length(c) = 4 then
          inc(b);
      c := ''
    end;
  end;
  write('V tekste ', b, ' slov s 4 simvolami!');
  readln

end.