функции в Pascal

[zver1804]

const d = 100; m = 5; type position = 1 .. d; var x: string [d]; y, z: string [m]; Описать
логическую функцию search (s, ss, k, n), которая проверяет, входит подстрока ss в ту
часть строки s, которая начинается с k-й позиции, и, если входит, присваивает
параметру n номер позиции, с которой начинается первое вхождение ss в эту
часть строки s. Используя эту функцию, заменить в строке x все
вхождения подстроки y на подстроку z заданных.