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

// 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 раз(а)