Множества в 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 заданих.

[zver1804]

точнее не множества а функции

[Poma][a]

Форум русскоязычный, так что извольте выражаться на русском...

[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 заданных.

[Sciv]

А зачем все это два раза постить?