Выяснить, входит ли в строку пара соседствующих символов "НО" или «ОН» - PascalABC.NET

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

Составить программу, которая вводит строку символов, выполняет ее обработку и затем выводит результаты Выяснить, входит ли в строку пара соседствующих символов "НО" или «ОН» спасибо тому, кто отзовется)

Решение задачи: «Выяснить, входит ли в строку пара соседствующих символов "НО" или «ОН»»

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

begin
  var S := UpperCase(ReadLnString('Введите строку:'));
  WriteLn('Пара соседствующих символов «НО» или «ОН» входит в строку = ',  S.IndexOf('НО') + S.IndexOf('ОН') > 0);
end.

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

Вводится строка с помощью функции ReadLnString.
Функция UpperCase применяет метод Upper к введенной строке, преобразуя все символы в верхний регистр.
Результат сохраняется в переменной S.
Функция IndexOf вызывается дважды, сначала для символа 'НО', затем для символа 'ОН'.
Результат сохраняется в переменных Но и Он.
Осуществляется проверка: (Но + Он) > 0.
Если проверка истинна, то выводится сообщение Пара соседствующих символов «НО» или «ОН» входит в строку, иначе выводится сообщение Пара соседствующих символов «НО» или «ОН» не входит в строку.