Определить количество слов, в которых содержится хотя бы одна заданная буква

program kkk;
uses crt;
var count,i,k:integer;
    st,buf:string;
   b:char;
   slova:array[1..100]of string;
begin
 write('Введите букву -> ');
 readln(b);
 clrscr;
 write('-> ');
 readln(st);
 count:=1;
 repeat
  if (st[1]=' ') or (length(st)=0) then while st[1]=' ' do delete(st,1,1)
  else
  begin
   while (st[1]<>' ') and (length(st)>0) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  slova[count]:=buf;
  buf:='';
  inc(count);
  end;
 until (length(st)=0) and (length(buf)=0);
 
 k:=0;
 for i:=1 to count-1 do if pos(b,slova[i])>0 then inc(k);
 writeln(k);
 readln;
end.

uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];{äîïèñàòü íóæíûå}
var
  s,temp:string;
  i,j,c:integer;
  ch:char;
begin
  clrscr;
  writeln('Ââåäèòå áóêâó...');
  readln(ch);
  writeln('Ââåäèòå ñòðîêó...');
  readln(s);
  temp:='';
  c:=0;
  {ïðîáåãàåì âñþ ñòðîêó ïîñèìâîëüíî}
  writeln('Íàéäåííûå ñëîâà:');
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
    begin
      if temp<>'' then
      begin
        if pos(ch,temp)<>0 then
        begin
          inc(c);
          write(temp,' ')
        end;
        temp:='';
      end;
    end;
  end;
  writeln;
  writeln('Âñåãî òàêèõ ñëîâ: ',c)
end.

uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];{дописать нужные}
var
  s,temp:string;
  i,j,c:integer;
  ch:char;
begin
  clrscr;
  writeln('Введите букву...');
  readln(ch);
  writeln('Введите строку...');
  readln(s);
  temp:='';
  c:=0;
  {пробегаем всю строку посимвольно}
  writeln('Найденные слова:');
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
    begin
      if temp<>'' then
      begin
        if pos(ch,temp)<>0 then
        begin
          inc(c);
          write(temp,' ')
        end;
        temp:='';
      end;
    end;
  end;
  writeln;
  writeln('Всего таких слов: ',c);
  readln
end.