Вывести на экран все слова из К букв, в которых буква Ы встречается более 1 раза, и подсчитать их количество.

//PascalABC.NET 3.2 сборка 1318begin  var ars:=readstring().Split;  var k:=readinteger();  ars.Where(x -> length(x)=k).Where(x -> x.where(y -> lowcase(y)='ы').count>1).Print;end.Пример ввода:было быыть будет5Пример вывода:быыть