Замена сочетания букв на символ Turbo Prolog

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

Добрый вечер. Имеется задача: Составьте программу, меняющую в слове X сочетание "zhur" буквой 'a'. Имеется вот такой код:

                    Листинг программы
                
predicates
convert(string,string).
clauses
convert("","").
convert(S,S1):-fronttoken(S,"zhur",O),!,convert(O,O1),frontchar(S1,'a',O1).
convert(S,S1):-frontchar(S, Char, O),convert(O,O1),frontchar(S1,Char,O1).

Если выполнить

                    Листинг программы
                
convert("zhur",S)

то на выходе он выдаст 'a'. Но если ввести

                    Листинг программы
                
convert("zhurka",S)

, то все остается без изменений. Подскажите, пожалуйста, в чем ошибка и как исправить? Спасибо.

Решение задачи: «Замена сочетания букв на символ Turbo Prolog»

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

convert(S, S1) :-
    frontstr(4, S, Z, O),
    Z = "zhur",
    !,
    convert(O, O1),
    frontchar(S1, 'a', O1).

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

Код выполняет замену сочетания букв zhur на символ 'a' в строке S1. Вот список шагов, которые выполняются в коде:

convert(S, S1) :- - объявление функции с двумя аргументами S и S1
frontstr(4, S, Z, O) - функция frontstr разбивает строку S на подстроки, сохраняя первые 4 символа в переменной Z, и оставшуюся часть в переменной O
Z = zhur - присваивание переменной Z значение zhur
! - оператор прекращения, прерывает выполнение текущего шага и переходит к следующему
convert(O, O1) - рекурсивный вызов функции convert для обработки оставшейся части строки O1
frontchar(S1, 'a', O1) - функция frontchar добавляет символ 'a' в начало строки S1, используя оставшуюся часть строки O1 Таким образом, код заменяет сочетание букв zhur на символ 'a' в строке S1.