Не поверишь, я сначала прочитал (вчера еще) описание с википедии и ничего не понял (какие то сдвиги текста, колокол-ы какие то ), а сейчас посмотрел твое решение на Паскале, там сначала тоже ничего не понял (не понял особенно зачем ord и зачем в первом цикле надо это BMT[i] := lp;), а потом до меня доперло, что во втором цикле обозначаются сдвиги при несовпадении поисковой буквы, а дальше все как по маслу и "код помазался для меня в зеленый цвет"
------------ Дoбавленo в 14.30: