Здравствуйте, Андрей Боровский, Вы писали:

АБ>Статья :
АБ>Алгоритмы поиска в тексте

Автор(ы): Андрей Боровский
Дата: 28.01.2002

АБ>Авторы :
АБ>Андрей Боровский
во втором примере строку
while Pos < Length(S) do
надо заменить на
while Pos <= Length(S) do