Здравствуйте, Андрей Боровский, Вы писали:
АБ>Статья :
АБ>Алгоритмы поиска в текстеАвтор(ы): Андрей Боровский
Дата: 28.01.2002
АБ>Авторы :
АБ>Андрей Боровский
во втором примере строку
while Pos < Length(S) do
надо заменить на
while Pos <= Length(S) do