Задана строка символов. Группа символов, разделенные пробелом и не содержащие внутри себя, будем называть словами. Определить количество слов, которые содержат ровно две буквы а. Необходимо написать программу в ПАСКАЛЬ

 var   s : string;   l,i,k,a : integer;  begin  readln (s);    l := Length(s);  k := 0;  a := 0;     for i := 1 to l do    begin     if (s[i]=' ') or (i=l) then      begin        if a = 2 then          k := k +1;       a := 0      end     else      if s[i] ='a' then       a := a +1; end;   writeln(k); end.