функции в 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 заданных.

[Sciv]

И Вам добрый вечер, уважаемый!

Еле-еле продравшись сквозь дебри всех Ваших s,x,y,z,m,d и прочих букв аглицкого алфавита, разобрался, наконец, что все очень просто:

нужно скопировать часть строки начиная с k-того символа и найти (с помощь pos) первое вхождение подстроки. Только непонятно: если Вам нужна именно функция, так нефиг параметром n задавать, можно прямо на выход этой функции подавать значение pos. А переменную n имеет смысл использовать для процедуры.

А в основной программе - в цикле "пока search(x,y,z)>0" менять подстроку.

[zver1804]

не знаю зачем переменная n, нашел такую задачу в интернете и интересно как решить

[Sciv]

А сами не пробовали решить?

[zver1804]

дело в том что я только начинающий и немного трудно составить программу.

[Mad_Cat]

не знаю зачем переменная n

чтоб знать откуда удалять и куда вставлять

[Sciv]

Mad_Cat, насколько я понял, удалять и вставлять нужно в основном тексте программы, а там можно использовать вышенаписанную функцию, так как:

заменить в строке x все вхождения подстроки y

Вот если бы нужно было заменить все вхождения, большие n...