Язык программирования Pascal. Нужно как то написать код решения этои задачи......

Исполнитель Редактор получает на вход строку цифр и преобразует её.
Редактор может выполнять две команды, в обеих командах v и w обозначают цепочки цифр.
А)  заменить (v, w).
Эта команда заменяет в строке первое слева вхождение цепочки v на цепочку w. Например, выпол-нение команды
заменить (111, 23)
преобразует строку 42111125 в строку 4223125
Если в строке нет вхождений цепочки v, то выполнение команды заменить (v, w) не меняет эту строку.
Б)  нашлось (v).
Эта команда проверяет, встречается ли цепочка v в строке исполнителя Редактор. Если она встре-чается, то команда возвращает логическое значение «истина», в противном случае возвращает зна-чение «ложь». Строка исполнителя при этом не изменяется.
Цикл
ПОКА условие
последовательность команд
КОНЕЦ ПОКА
выполняется, пока условие истинно.
В конструкции
ЕСЛИ условие
ТО команда1
ИНАЧЕ команда2
КОНЕЦ ЕСЛИ
выполняется команда1 (если условие истинно) или команда2 (если условие ложно).
Какая строка получится в результате применения приведённой ниже программы к строке, состоя-щей из 70 идущих подряд цифр «1»? В ответе запишите полученную строку.
НАЧАЛО
ПОКА нашлось (1111) ИЛИ нашлось (2222)
ЕСЛИ нашлось (1111)
ТО заменить (1111, 22)
ИНАЧЕ заменить (2222, 11)
КОНЕЦ ЕСЛИ
КОНЕЦ ПОКА
КОНЕЦ