Дана последовательность символов, заканчивающаяся восклицательным знаком. Подсчитать количество букв <a> в третьем слове данной последовательности( слова разделяются одним или несколькими пробелами).

Код:
Program Tema12;
  var st:string;
      s,i,k:integer;
Begin
 writeln('Vvedite stroky v konce <.>');
 readln(st);
 i:=0;
 s:=0;
 k:=0;
 while st[i]<>'!' do
  begin
   i:=i+1;
   if st[i]=' ' then k:=k+1;
    if k=2 then
     Begin
      if st[i]='a' then s:=s+1;
     end;
   end;
 writeln('Kol-vo bukv v 3 slove=',s:2);
 readln;
End.