Опередить, входит ли в строку символ "э", до первого восклицательного знака - Pascal

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

Здравствуйте. Дано: рандомная строка, неизвестной длинны, в которой гарантированно есть как минимум один символ "!". Необходимо: опередить, входит ли в строку символ "э", до первого восклицательного знака. Спасибо.

Решение задачи: «Опередить, входит ли в строку символ "э", до первого восклицательного знака»

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

var s:string;
i:integer;
BEGIN
Readln (s); //ввод строки
For i:=1 to Length(s) do begin
IF s[i]='э' THEN begin 
                       Writeln ('Входит');
                       Break;
                       end;
IF s[i]='!' THEN begin
                      Writeln ('Не входит');
                      Break;
                      end;
end;
END.

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

Создается переменная s типа string для хранения введенной строки.
Создается переменная i типа integer для использования в цикле.
Вводится строка пользователем с помощью функции Readln(s).
Запускается цикл For от 1 до длины строки Length(s).
Внутри цикла проверяется каждый символ строки с помощью условия IF.
Если символ равен э, то выводится сообщение Входит с помощью функции Writeln, затем цикл завершается с помощью Break.
Если символ равен !, то выводится сообщение Не входит с помощью функции Writeln, затем цикл завершается с помощью Break.
Программа завершается, когда цикл полностью пройдет по строке (либо найдет э, либо ! и закончит выполнение).