Algorithme (chaine et sous-chaine)?

Bonjou tt le monde
bon, j'ai un probleme avec un algo de recherche !
je m'explique

on vous demande d'ecrire un algo qui cherche une chaine (mot) dans une chaine de caractere (phrase ou texte)
expl
si le texte est "je suis malheureux et cet algo est malheureusement difficil....."
et le mot recherché est "mal"
alors le programme affichera "malheureu , malheureusement"
svp aider moi !
ps: ( algo ou pascal )
merci bcp