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

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;

function here(s,Symbol): boolean;
begin
if Pos(Symbol,s) > 0 then Result := true else Result := false;
end;

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;
function here(Symbol,s: String): boolean;
begin
     if Pos(Symbol,s) > 0 then Result := true else Result := false;
end;
var
      s, s1,s2 :string;
      p,i,j,k,n :integer;
begin
writeln('введите строку:');
readln(s);
writeln('введите k');
readln(k);
s:=s+' ';
s2:='ы';
p:=1;
for i:=1 to length(s) do
begin
  if s[i] = ' ' then
  begin
     s1:=copy(s,p,i-p);
     if k = length(s1) then
     begin
       if here(s2,s1) = true then n:= countSymbol(s1,s2);
         if n > 1 then
            writeln(s1,'  буква "ы" ',n,' раз');
       p:=i+1;
     end;
  end;
end;
end.