Определить в предложении количество слов, которые НЕ содержат символ "а"

Определить в предложении количество слов, которые НЕ содержат символ "а". Вывести все эти слова и исходную символьную строку. Я не понимаю, как посмотреть полностью слово и определить, есть ли в слове буква "а" вот код:

var
    s: string;
    i,k: integer;
    
begin
  readln(s);
  s:= s + ' ';
  k:= 0;
  for i:= 1 to length(s) do
    begin
      if not(s[i] in [' ',',','.','?','!']) then
        if (pos(s[i],'a') = 0) then k:=k+1; 
    end;
  writeln(k);
end.