ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПО ТУРБО ПАСКАЛЮ

[НАСТЯ 18:)]

С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается с нажатия на клавиатуре точки. Посчитайте, сколько раз в тексте встретилась буква "а".

[netcher]

uses crt;
var s:string;
i,j,k:integer;
q:set of char;

begin
clrscr;
writeln('vvedite text');
readln(s);
q:=[];
for i:=1 to length(s) do
if not (UpCase(s[i]) in q) then begin
k:=0;
for j:=i to length(s) do
if UpCase(s[j])=Upcase(s[i]) then inc(k);
q:=q+[UpCase(s[i])];
if s[i]='a' then
writeln('bykva a vstrechaetsa : ',k, ' raz')
end;
readln;
end.

[НАСТЯ 18:)]

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

[НАСТЯ 18:)]

а как тему закрыть?

[netcher]

ненужно ее закрывать, просто не пиши в нее ничего)