Как проверить на наличие символов между запятыми в строке?

[ULR]

Здравствуйте! Не могли бы вы мне подсказать, если вам не сложно) Например, есть строка 'ab,dfg,cd,nn'. Нужно определить есть ли в строке 'nn' например. Как сделать, чтоб проверить символы между запятыми? Делаю обычный цикл посимвольно, но это совсем не удобно) Извините, если вопрос глупый, но помогите пожалуйста)

[BDA]

Например (паскаль):

s := 'ab,dfg,cd,nn';
n := 'nn';
if pos(',' + n + ',', ',' + s + ',') > 0 then write('Yes');

[ULR]

спасибо за помощь!