Simple Delphi — Simple Search. Example 1

Задание.

Реализовать алгоритм поиска слова в исходной строке по средствам стандартных функций Pos, Length, Delete.

Описание.

Программа чувствительна к регистру и к дополнительным знакам вокруг слова.

Например, в предложении «Привет тебе, привет», при поиске слова «привет», результатом будет — одно совпадение.

Или, в предложении «Привет тебе! Привет!», при поиске слова «Привет», результатом будет — одно совпадение.