Определить количество слов, длина которых равна третьему слову текста

#include <iostream>
#include <cctype>
#define isdelim(c) (std::isspace((c)) || std::ispunct((c)))
int at_length(const char* s, int n);
const char* next_word(const char*& s, int& n);
 
int main(void){
    const int N = 128;
    char s[N] = "PYTHON, PERL, PROLOG, COBOL, SNOBOL";
/*
    std::cout << "Enter: ";
    std::cin.getline(s, N);
*/
    int n, k = 0, m = at_length(s, 3);
    const char* p, *w;
    for(p = s; (w = next_word(p, n)) != NULL; ){
        if(n == m){
            std::cout.write(w, n);
            std::cout << std::endl;
            ++k;
        }
    }
    std::cout << "count words: " << k << std::endl;
    std::cin.get();
    return 0;
}
 
//получение слова
const char* next_word(const char*& s, int& n){
    const char* t = s;
    while(isdelim(*t))
        ++t;
 
    const char* p = t;
    while(*p && !isdelim(*p))
        ++p;
 
    if(p > t){
        n = static_cast<int>(p - t);
        s = p;
    } else
        t = s = NULL;
    return t;
}
 
//получение длинны слова по номеру
int at_length(const char* s, int n){
    int i = 0;
    do {
        if(*s && !isdelim(*s))
            ++i;
        else if(i > 0){
            if(--n <= 0)
                return i;
            i = 0;
        }
    } while(*s++ != '\0');
    return 0;
}