ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ! В турбо паскале!

"Даны две строки сосчитать сколько раз вторая строка входит в первую и удалить с начала строки столько символов, сколько вторая строка входит в первую"
ТИПОМ ДАННЫХ string