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

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