Дана страка символов, содержашая слова, то есть группы символов,разделеные пробелами( не менее одного). Составте программу,которая определяет , сколько раз в тексте встречается задоное слово»

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin   var s:=ReadlnString('Введите строку:');   var w:=ReadlnString('Введите слово:');   Writeln('Встретилось ',s.ToWords.Where(x->x=w).Count,' раз(а)') end. Тестовое решение: Введите строку: Не напрасно дули ветры, не напрасно шла гроза Введите слово: напрасно Встретилось 2 раз(а)