Чтобы в Pascal выполнить поиск в строке, используют метод pos().
Он имеет возвращает индекс 1-го вхождения подстроки в строку:
pos(originalString, smallString) - ищет в originalString smallString
Когда подстрока не найдена, метод возвращает 0:
welcome := 'Hello world! Goodbye world!';
index := pos(welcome, 'wor');
writeln(index); // 7
index := pos(welcome, 'sun');
writeln(index); // 0
Обратите внимание: данные методы не ищут количество вхождений, а всего лишь определяют, есть ли такая подстрока в строке или нет.
