Подсчитать количество слов, которые начинаются на вводимую букву

var
a:string;
kol,i:integer;
s:char;
begin
write('stroka=');
readln(a);
write('simvol=');
readln(s);
a:=' '+a;
for i:=1 to length(a) do
if (a[i]=' ')and(a[i+1]=s)then inc(kol);
writeln(kol);
end.

uses
  crt;
const
  dividers=[' ',',','.',':',';','+','-','*','/','|','\','=','-','_'];{äîïèñàòü íóæíûå}
var
  s,temp:string;
  i,c:integer;
  ch:char;
begin
  clrscr;
  writeln('Ââåäèòå áóêâó...');
  readln(ch);
  writeln('Ââåäèòå ñòðîêó...');
  readln(s);
  temp:='';
  c:=0;
  {ïðîáåãàåì âñþ ñòðîêó ïîñèìâîëüíî}
  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]=LowCase(ch)) or (temp[1]=UpCase(ch)) then
          inc(c);
        temp:='';
      end;
    end;
  end;
  writeln('Âñåãî òàêèõ ñëîâ: ',c)
end.