Подсчитать количество букв А в строке, которую ввел пользователь - PascalABC.NET

Формулировка задачи:

Я хочу написать программы, которая считала бы количество букв А в строке, которую ввел пользователь. Но результат работает некорректно. Исправьте код

uses crt;
var a, b, e : integer;
var c : char;
begin
e:=0;
writeln ('Введите строку'); readln (d);
a:= Length(d); 
for b:=1 to a do begin
if d[b]='А' then e:=e+1;
end;
writeln (e);
end.

Решение задачи: «Подсчитать количество букв А в строке, которую ввел пользователь»

Листинг программы

var a, b, e : integer;
    d:string;
begin
writeln ('Введите строку');
readln (d);
a:=Length(d);
e:=0;
for b:=1 to a do
if d[b] in ['А','А'] then e:=e+1;//А латинская и
writeln (e);
end.

Объяснение кода листинга программы

Объявлены три переменные типа integer: a, b, e.
Объявлена переменная типа string: d.
Выводится сообщение «Введите строку», и пользователь вводит строку в переменную d.
Переменная a инициализируется значением функции Length(d), которая возвращает количество символов в строке d.
Переменная e инициализируется нулем.
Запускается цикл for, который выполняется от b=1 до a (количество символов в строке d).
Внутри цикла проверяется, является ли текущий символ в строке d латинской буквой 'А'.
Если символ является латинской 'А', то к переменной e прибавляется единица.
По завершении цикла выводится значение переменной e.