Изменения

'''while''' j <tex> > </tex> 0 '''and''' pattern[j] <tex>=</tex> text[pos <tex>+</tex> j]

j--

pos <tex>\rightarrow</tex> occurences

pos <tex>\leftarrow</tex> pos <tex>+</tex> q