関数化したソース
#include <io.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define     SEPARATOR   " .,\t\r\n"

typedef int     (*COMP )(const void *,const void *);

typedef struct  {
    char    *pWord;
    int     Count;
} WORDINFO,*PWORDINFO;

/* とりあえず単語種類を200とする */
WORDINFO        WordTbl[200];

int     Compare(PWORDINFO ,PWORDINFO );

int     WordSearch(char *FileName)
{
    PWORDINFO   pSearch,pTbl;
    char        *pText,*tk;
    size_t      uSize;
    size_t      TblLen;
    FILE        *fp;

/*** phase 1 テキストをメモリにロード ***/
    fp = fopen(FileName,"r");
    if (!fp)    
        return 0;

    uSize = (size_t )filelength(fileno(fp));
    pText = (char *)calloc(uSize + 1,sizeof(char ));
    if (!pText){
        fclose(fp);
        return 0;
    }
    fread(pText,uSize,1,fp);
    fclose(fp);

/*** phase 2 単語の位置をテーブルに格納する ***/
    tk = strtok(pText,SEPARATOR);
    while(tk){
        pSearch = WordTbl;
        while(pSearch->pWord){
            if (!strcmp(pSearch->pWord,tk))
                break;
            pSearch++;
        }
        pSearch->pWord = tk;
        pSearch->Count++;

        tk = strtok(NULL,SEPARATOR);
    }

/*** phase 3 ソート ***/
    pTbl = WordTbl; while((pTbl++)->pWord);
    TblLen = pTbl - WordTbl - 1;

    qsort(WordTbl,TblLen,sizeof(WORDINFO ),(COMP )Compare);

    pTbl = WordTbl;
    while(pTbl->pWord){
        printf("%s  .....  %d\n",pTbl->pWord,pTbl->Count);
        pTbl++;
    }

    /* 領域pTextは最後まで解放してはならない */
    free(pText);

    return 1;
}

int     Compare(PWORDINFO ptr1,PWORDINFO ptr2)
{
    return strcmp(ptr1->pWord,ptr2->pWord);
}

> int     Compare(PWORDINFO ptr1,PWORDINFO ptr2)
> {
>     return strcmp(ptr1->pWord,ptr2->pWord);
> }

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>

typedef struct {
    char *word;
    int  count;
} Node;

int get_word(FILE *fp, char *word, int size)
{
    int c, i = 0;

    do {
        if ((c = getc(fp)) == EOF) return 0;
    } while (!isalpha(c));
    --size;
    do {
        if (i < size) word[i++] = tolower(c);
        c = getc(fp);
    } while (isalpha(c));
    word[i] = '\0';
    return 1;
}

int compare(const void *a, const void *b)
{
    Node *p1 = (Node *)a;
    Node *p2 = (Node *)b;
    return p2->count - p1->count;
}

int main()
{
    char word[256];
    Node table[3000];
    int  ntable = 0, i;

    while (get_word(stdin, word, sizeof word)) {
        for (i = 0; i < ntable; i++)
            if (strcmp(table[i].word, word) == 0)
                break;
        if (i == ntable) {
            if (++ntable > sizeof table)
                return fprintf(stderr, "too many words\n"), 1;
            table[i].count = 1;
            table[i].word = strdup(word);
            if (table[i].word == NULL)
                return fprintf(stderr, "out of memory\n"), 1;
        } else
            table[i].count++;
    }
    qsort(table, ntable, sizeof *table, compare);
    for (i = 0; i < ntable; i++)
        printf("%4d %s\n", table[i].count, table[i].word);
    return 0;
}