Задана строка символов. Группы символов, котороые розделены пропуском и не имеют в себе пропусков,

program kkk;
uses crt;
var count,i:integer;
    st,buf:string;
    slova:array[1..100]of string;
    ch:char;
begin
 clrscr;
 write('Введите строку: ');
 readln(st);
 write('Введите символ: ');
 readln(ch);
 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);
 
 for i:=1 to count-1 do if slova[i][1]=ch then writeln(slova[i]);
 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 temp[1]=ch then
        begin
          inc(c);
          write(temp,' ')
        end;
        temp:='';
      end;
    end;
  end;
  writeln;
  writeln('Âñåãî òàêèõ ñëîâ: ',c)
end.