Даны символы S1,.,Sn. Выяснить, встречаются ли в тексте символы “a” и “5” и сколько раз - Pascal ABC

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

Здравствуйте. Даны символы S1, ..., Sn. Выяснить, встречаются ли в тексте символы “a” и “5” и сколько раз. Проверьте, пожалуйста, программу.

Var
  s: String;
  i,k: Byte;
BEGIN
Writeln('Введите строку: ');
Readln(s);
k:=0;
For i:=1 to Length(s) do
If s[i]='a' Then
If s[i]='5' Then
k:=k+1;
Write(k, ' раз(а)');
END.

Решение задачи: «Даны символы S1,.,Sn. Выяснить, встречаются ли в тексте символы “a” и “5” и сколько раз»

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

Var
  s: String;
  i,k: Byte;
BEGIN
Writeln('Введите строку: ');
Readln(s);
k:=0;
For i:=1 to Length(s) do
If s[i]in['a','5'] Then k:=k+1;
Write(k, ' раз(а)');
END.

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

Объявлены переменные: s (строка), i, k (булевы значения не используются, но должны быть объявлены).
Пользователю предлагается ввести строку.
Введенная строка сохраняется в переменной s.
Инициализируется счетчик k=0.
Происходит проверка каждого символа строки s на соответствие символам 'a' и '5'. Если символ соответствует, то к счетчику k прибавляется единица.
Выводится значение k, которое показывает сколько раз встретились символы 'a' и '5' в строке.