Турбо паскаль:Вводится строка и символ. Определить количество слов, содержащих введенный символ.