[Asira]

Подскажите как посчитать кол-во слов в предложении?

Код:

function harakteristika(s:string):integer;
 var i,j,k,ns,ks,kol,e:integer;
     slovo:string;begin
  kol:=0;i:=1; while i<=length(s) do
  begin

   slovo:='';
   while (s[i]=' ') and (i<=length(s)) do i:=i+1;
   ns:=i;
   while (s[i] <> ' ') and (i<=length(s)) do i:=i+1;
   ks:=i;
   slovo:=copy(s,ns,ks-ns); e:=e+1; 

Admin: Пользуемся тегами!

таким образом я посчитаю кол-во слов во всём тексте... а как возможно посчитать кол-во слов в предложении?( в дальнейшем мне необходимо ещё выделить все предложения в которых 2 слова)((