var A:array[1..100] of string;
s,s1:string;
i,n:integer;
begin
Writeln('String :');
Readln(s);
n:=1; i:=1;
repeat
s1:='';
While s[i]=' ' do Inc(i);
if i>Length(s) then break;
While (s[i]<>' ') and (i<=Length(s)) do
begin
s1:=s1+s[i];
Inc(i);
end;
A[n]:=s1;
Inc(n);
until i>Length(s);
s1:=A[n-1];
n:=0;
for i:=1 to Length(s1) do
if s1[i]='a' then Inc(n);
Writeln('Bukv -a- = ',n);
Readln;
end.
и больше ничего добавлять не надо. Откампилируйте и запустите полученный файл.
В окне введёте свою строку и получите примерно это: