Para pesquisar dentro de uma string em Pascal, use o método pos().
Retorna o índice da 1ª ocorrência da substring na string:
pos(originalString, smallString) - procura em originalString smallString
Quando a substring não é encontrada, o método retorna 0:
bem-vindo := 'Olá mundo! Adeus mundo!';
index := pos(bem-vindo, 'trabalho');
writeln(índice); // 7
index := pos(bem-vindo, 'sol');
writeln(índice); // 0
Observação: esses métodos não procuram o número de ocorrências, mas apenas determinam se existe tal substring na string ou não .