Cycle

var counterOfWords:integer;
  counterOfWords:=1;
  for i:=1 to length(s) do
    begin
        if not (s[i]in divs) then
            emptyArr[counterOfWords]:=concat(emptyArr[counterOfWords],s[i])
        else
            inc(counterOfWords)
    end;