program qqq;
var s:string; ch:char; q:integer;
procedure delspase(var s:string);
begin
while (s[1]=' ') and (length(s)>0) do
s:=copy(s,2,length(s)-1);
end;
procedure words(s:string;ch:char; quant:integer;var k:byte);
var slovo :string;
i,q:integer;
begin
s:=s+' ';
Delspase(s);
k:=0;
while s<>'' do begin
slovo :=copy (s,1,pos(' ',s)-1);
q:=0;
for i:=1 to length(slovo) do
if slovo[i]=ch then inc(q);
if q=quant then begin

writeln(slovo);
inc(k);
end;
delete(s, 1, length(slovo));
delspase(s);
end;

end;
begin
writeln('Введите текст:'); readln(s);
write('Введите букву для поиска в словах:');readln(ch);
write('Введите количество заданного символа:');
readln(q);
words(s, ch,q);
writeln('Количество слов, содержащих заданное количество буквы', ch, ' :', k);
end.