Что нужно добавить в программу чтобы она считала еще и количество слов? - Pascal

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.                                            {конец}