Pascal.работа с символьными массивами и строками

[Иришка1989]

у меня проблема..завтра сдавать лабу, а я никак не могу разобраться с заданием..
Составить программу для обработки произвольной символьной информации (предусмотреть выполнение задания при использовании переменной символьного массива и строкового типа; программа должна включать ввод произвольного текста, его обработку и вывод результата)

Определить количество слов в тексте, содержащих хотя бы одну букву А.

помогите пожалуйста.

[fbus]

пиши в аську.

[Базиля]

576079457 аська, пиши

[Alex_FF]

вот как пример

program solve;
uses
    Crt;
const
     Alphabet = ['A'..'Z', 'a'..'z'];
var
   I, K: Integer;
   S: String;
   F: Boolean;
begin
     ClrScr;
     ReadLn(S);
     K := 0;
     I := 1;
     while I <= Length(S) do
     begin
          if S[I] in Alphabet then
          begin
               F := False;
               while (S[I] in Alphabet) and (I <= Length(S)) do
               begin
                    if Upcase(S[I]) = 'A' then F := True;
                    Inc(I);
               end;
               if F then Inc(K);
          end;
          Inc(I);
     end;
     WriteLn(K);
     ReadKey;
end.