Узнать количество букв "А", и наличие буквы "С" в строке - PascalABC.NET

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

Дана последовательность символов х1,х2..хn Узнать кол-во букв "А" ,и есть ли буква "С" если её нет то вивести на екран сообщение

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

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

begin
  var S := ReadString('Введите всю последовательность символов:');
  WriteLn('Количество букв "А" = ', S.Length - S.Replace('А', '').Length);
  WriteLn('Буква "C" в последовательности ', S.IndexOf('С') < 0 ? 'отсутствует.' : 'есть.');
end.

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

Вводится строка S с помощью функции ReadString.
Вычисляется количество букв А в строке S с помощью вычитания длины строки, полученной после удаления всех букв А с помощью метода Replace, из исходной длины строки S.
Проверяется наличие буквы С в строке S с помощью метода IndexOf. Если значение IndexOf меньше 0, то выводится сообщение БукваCв последовательности отсутствует., иначе выводится сообщение БукваCв последовательности есть..