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

var s,s1:string; k,ks,p,l,n,i:integer;beginwriteln('Введите слова:');readln(s);write('k = '); readln(k);s:=s+', ';ks:=0;p:=pos(', ',s);while p>0 do begin s1:=copy(s,1,p-1); l:=length(s1); if l=k then   begin   n:=0;   for i:=1 to l do if s1[i]='ы' then n:=n+1;   if n>1 then begin writeln(s1); ks:=ks+1; end;   end; delete(s,1,l+2); p:=pos(', ',s); end;writeln('ks = ',ks);end.Пример:Введите слова:вымысел, вышка, барышня, бутылка, выигрыш, розыгрыш, верблюд, крылышкоk = 7вымыселвыигрышks = 2