Выручайте, операции над строкой Опции

[Free]

Спасите пожалуйста. Дело в том, что мне завтра сдавать работу по структурам данных, а у меня проблемы с интерфейсом и не работает функция "find"
В принципе главное это с файнд разобраться, ну а если с интерфейсом поможете буду очень благодарен.
Итак Файнд: В строке S1^ начиная с позиции pos (которую мы вводим) ищет подстроку S2^ (вроде тоже вводим); результат поиска это та позиция начиная с которой подстрока была найдена или 0, если поиск неудачен. Сама процедура есть, вот только не могу связать её с интерфэйсом. Прилагаю файл. Надеюсь на вашу отзывчивость