Строка: Найти количество букв "А" - Pascal

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

Вводится текст. Конец ввода <F2>. Найти количество букв "А" (программа и блок-схема) Пожалуйста ПОМОГИТЕ!

Решение задачи: «Строка: Найти количество букв "А"»

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

{$MODE TP}
uses
    Crt;
var
    c: Char;
    count: LongWord;
begin
    count := 0;
    repeat
        c := ReadKey();
        Write(c);
        if (c = 'A')
        then
            Inc(count);
    until (c = #60);
    WriteLn;
    Write('Answer: ', count);
end.

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

Объявляется переменная c типа Char, которая будет хранить символы, и переменная count типа LongWord, которая будет хранить количество букв А.
Устанавливается начальное значение count равное 0.
Запускается цикл repeat..until, в котором:
- Символ, введенный с клавиатуры, сохраняется в переменной c с помощью ReadKey().
- Введенный символ выводится на экран с помощью Write().
- Если введенный символ равен символу 'A', то значение переменной count увеличивается на 1 с помощью Inc(count).
- Цикл продолжается до тех пор, пока не будет введен символ '#' (код символа равный 60).
После окончания цикла выводится пустая строка с помощью WriteLn().
Затем выводится сообщение Answer: и значение переменной count с помощью Write('Answer: ', count).