Найти количество слов в строке

uses
  Crt;
const
  dividers = [' ',',','.',';',':','-','=','+'];{äîïèñàòü íóæíûå}
var
  s,temp: string;
  i,c: integer;
begin
  ClrScr;
  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)) and (temp <> '') then
    begin
      inc(c);
      temp := '';
    end;
  end;
  WriteLn('Âñåãî ñëîâ: ', c);
  ReadLn;
end.

program pr1;
var stroka:string; i,kol:byte;
function f_bukva_lat(sim:char):boolean;
begin
  if sim in ['a'..'z','A'..'Z'] then f_bukva_lat:=true
  else f_bukva_lat:=false;
end;
function f_bukva_rus(sim:char):boolean;
begin
  if sim in ['а'..'я','А'..'Я','ё','Ё'] then f_bukva_rus:=true
  else f_bukva_rus:=false;
end;
begin
  writeln('Ввеедите текст');
  readln(stroka);
  kol:=0;
  for i:=1 to length(stroka) do
  if f_bukva_rus(stroka[i]) then begin
                                while (length(stroka)>i)and(f_bukva_rus(stroka[i])) do
                                inc(i);
                                inc(kol);
                             end;
  writeln('Количество слов в строке- ',kol);
end.