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

program qq;
var s,s1: string;
    K, i, count,n,m: integer;
    procedure Rec(p: integer);
begin
  if p > K then begin
    writeln(s);
    count := count+1;
  end
  else begin
    s[p]:='Ы'; Rec ( p+1 );
    s[p]:='Ц'; Rec ( p+1 );
    s[p]:='Щ'; Rec ( p+1 );
    s[p]:='О'; Rec ( p+1 );
  end;
end;
begin
  writeln('Введите длину слова:');
  read ( K );
  s := '';
  for i:=1 to K do s := s + ' ';
  count := 0;
  Rec ( 1 );
  writeln('Всего ', count, ' слов');
end.

program qq;
var s,s1: string;
K, i, count,n,m: integer;
//**************************************
function countSymbol(s, Symbol : String):integer;
var
   i, count:integer;
begin
count := 0;
for i := 1 to length(s) do
    if s[i] = Symbol then count := count+1;
Result := count;
end;
//***************************************
procedure Rec(p: integer);
begin
if p > K then begin
if countSymbol(s,'Ы') > 1 then begin  writeln(s); count := count+1; end;
end
else begin
s[p]:='Ы'; Rec ( p+1 );
s[p]:='Ц'; Rec ( p+1 );
s[p]:='Щ'; Rec ( p+1 );
s[p]:='О'; Rec ( p+1 );
end;
end;
 
begin
writeln('Введите длину слова:');
read ( K );
s := '';
for i:=1 to K do s := s + ' ';
count := 0;
Rec ( 1 );
writeln('Всего ', count, ' слов');
end.