Некорректная работа с памятью (calloc и free) - C (СИ)

  
    char **p;
    p = (char **) calloc(WORDS, sizeof(char *)); // выделение памяти для вспомогательного массива указателей
    p[0] = (char *) calloc(WORDS * SYMBOLS, sizeof(char)); // выделение памяти под предложение 
 
// какой-то код
 
    free((void **) p[0]); // освобождение памяти
    free((void **) p);

/**********************************************************************
 * laba9_string.c   15.11.2016
 * 
 * Пользователь вводит с клавиатуры строку с разделителями в виде ' '.
 * Надо выделить слова в предложении.
 * Далее у пользователя запрашивается комбинация символов.
 * Нужно методом двоичного поиска выяснить, есть ли это слово в строке.
 **********************************************************************/
 
#include <stdio.h>  /* printf, putchar, puts, gets */
#include <stdlib.h> /* calloc */
#include <string.h> /* strcmp */
 
#define WORDS 10    // максимум слов в предложении
#define SYMBOLS 10  // максимум символов в слове
 
void MySort(char **, int);
void MyBinarySearch(char **, int);

int main(void)
{
    int i, all_words;
    char **p;
    
// выделение памяти для вспомогательного массива указателей
    p = calloc(WORDS, sizeof(char *));
 
// выделение памяти под предложение, в т.ч. +10 на пробелы
    p[0] = calloc((WORDS * SYMBOLS) + 10, sizeof(char));
 
    printf("\n-----Введите предложение (не более 100 символов): \n");
    gets(p[0]);
 
// разделение слов на лексемы
    printf("\n----- Введены слова:");
    all_words = 0; // счётчик слов
    p[all_words] = strtok (p[0], " ");
    while(p[all_words] != NULL) {  //пока есть лексемы
        printf("\n  %s", p[all_words]);
        p[++all_words] = strtok (NULL, " ");
    }
 
// сортировка массива указателей на массивы символов (слова в словаре)
    MySort(p, all_words);
 
    printf("\n----- Слова отсортированы:\n");   
    for(i = 0; i < all_words; i++) {
        putchar(' ');
        puts(p[i]);
    }
 
// запрос произвольного слова и поиск его в словаре
    MyBinarySearch(p, all_words);
 
// освобождение памяти
    free(p[0]); 
    free(p);
 
    return 0;
}

// сортировка массива слов
void MySort(char **p, int all_words)
{ 
    size_t i, j;
    
    for(i = 0; i < all_words - 1; i++) {
        for(j = 0; j < all_words - 1 - i; j++){
            if(strcmp(p[j], p[j+1]) > 0) {
                char *tmp = p[j];
                p[j] = p[j + 1];
                p[j + 1] = tmp; 
            }
        }
    }
}

// поиск слова в массиве методом двоичного поиска   
void MyBinarySearch(char **p, int all_words)
{   
    char find_word[SYMBOLS];
    size_t left, right, flag, index = 0;
 
    printf("\n Введите слово для поиска или '.' для завершения: ");
    gets(find_word);
    while(46 - find_word[0]) {
        left = flag = 0;
        right = all_words - 1;
        while(left <= right) {
            index = (left + right) >> 1;
            if(strcmp(find_word, p[index]) < 0)
                right = --index;        
            else if(strcmp(find_word, p[index]) > 0)
                left = ++index;         
            else{
                flag = 1;
                break;
            }
        }
        if(flag)
            printf("\n\tСлово есть в словаре\n");
        else
            printf("\n\tСлова в словаре нет\n");
        printf("\n Введите слово для поиска или '.' для завершения: ");
        gets(find_word);
    }
}