Написать программу , чтобы помимо прописных букв «а» подсчитывались заглавные буквы «А» — Pascal(Паскаль)

uses crt;
var s : string;
c, f, len, i : integer;
 
begin clrscr;
Write('Введите строку : '); ReadLn(s);
len := length(s); {берем длину строки}
 
f := 1; {этот флаг означает, что у нас еще не было пробелов}
 
for i:=1 to len do {начиная с начала строки посимвольно}
begin
if s[i]='а' then
begin
inc(c);
end;
if s[i]='А' then
begin
inc(c);
end
else if s[i]=' ' then
 
end;
{вывод результатов}
WriteLn('Буква "а" встречается ',c,' раз.');
ReadLn;
end.