Nemusíš prehľadávať reťazec znak po znaku, stačí použiť funkciu Pos, ako píše Jan Fiala.

To je procedúra na tri riadky - prebehnúť všetky záznamy (1. riadok), skontrolovať, či sa vo vybranom poli záznamu nachádza hľadaný reťazec (2. riadok) a ak áno, tak vypísať informáciu o tom, že sa našiel (3. riadok). Koniec algoritmu.