как посчитать количество слов в строке?

program lab_8;
 
uses crt;               {подключаем модуль crt}
 
const s: string[10]=',.?!()";:-';   {объявляем строковую константу со знаками препинания}
 
var str: string;            {объявляем строковую переменную}
    i,j: integer;           {индексы для массивов}
    k: integer;
    slovo: string;          {кол-во знаков препинания в строке}
 
begin               {начало основной программы}
 
clrscr;             {очистка экрана}
 
write('vvedite stroku: ');      {все и так понятно}
readln(str);            {считываем строку}
 
for i:=0 to length(str) do
        {внешник цикл по символам строки str}
 for j:=0 to length(s) do       {внутренний цикл по символам строки s}
   if str[i]=s[j] then      {если в str есть знак препинания, то}
    if ((str[i]='.')and(str[i+1]='.')and(str[i+2]='.')) then    {проверяем является ли знак препинания многоточием (три точки)}
     begin inc(k); i:=i+2; break; end           {если да, то увеличиваем k на 1 и переприсваиваем значение i для
                         пропуска многоточия, выходим из внутрененго цикла служебным словом break}
    else begin inc(k); break; end;          {если нет, то увеличиваем k на 1 и выходим из внутренего цикла}
 
writeln('k = ',k);                  {выводим на экран кол-во знаков препинания}
readln;                     {считываем строку}
 
end.                        {конец}

var s:string;
    k,i:integer;
begin
writeln('строка:');
readln(s);
s:=' '+s;
for i:=1 to length(s) do
 if s[i]=' ' then k:=k+1;
 writeln(k);
end.

Const
  prpChar=['.',',',':',';','?','!','-',' ']; {символы разделители}
 
..............................................................................
 
      poz:=1;
      kol:=0;
      while poz<=Length(Line) do
        begin
          stword:='';
          while (poz<=Length(Line)) and (not(Line[poz] in prpchar)) do
            begin
              stword:=stword+Line[poz];     {выбираем очередное слово из строки файла}
              Inc(poz)
            end;
          Inc(poz);
          Inc(kol)
        end;