Para buscar dentro de una cadena en Pascal, use el método pos().
Ha devuelto el índice de la primera aparición de la subcadena en la cadena:
pos(cadenaoriginal, cadenapequeña) - busca en cadenaoriginal cadenapequeña
Cuando no se encuentra la subcadena, el método devuelve 0:
bienvenido := 'Hola mundo! ¡Adiós mundo!';
index := pos(bienvenido, 'trabajar');
writeln(índice); // 7
índice := pos(bienvenido, 'sol');
writeln(índice); // 0
Tenga en cuenta: estos métodos no buscan el número de ocurrencias, sino que solo determinan si existe una subcadena en la cadena o no. .