задача в паскале

[гоша37]

Вводится последовательность символов, конец ввода - знак '!' Определить количество слов, заканчивающихся буквой 'A' (букв 'A', стоящих перед пробелом и знаками конца предложения)

[Mad_Cat]

i:=1;c:=0;
while s[i]<>'!' do
begin
if (s[i] in['A','a']) and (s[i+1] in [' ','.',',',':',';','?','!']) then inc(c);
inc(i);
end;
writeln(c);

[Salomon9393]

спасибо большое)