По паскалю (⋋▂⋌) имеется текст, состоящий из слов, разделенных между собой пробелом. все буквы в тексте прописные. есть ли слова в предложении, которые начинаются с "лес". если да, то сколько их (по лесу ходит лесник. ответ: есть, два слова)

// PascalABC.Net 3.0, сборка 1066
begin
  var s:=ReadString('Введите текст :');
  Write('Количество повторов "ЛЕС" равно ',
    s.Split(' ').Where(x->Copy(x,1,3)='ЛЕС').Count);
end.

Тестовые примеры:
Введите текст : ПО ЛЕСУ ХОДИТ ЛЕСНИК
Количество повторов "ЛЕС" равно 2

Введите текст : ЛЕС, ПОДЛЕСОК, ПЕРЕЛЕСОК- ДОЖДЬ ЗАСТАЛ МЕНЯ В ПУТИ...
Количество повторов "ЛЕС" равно 1