Программа считывает строку, делит ее на слова и выводит в порядке убывания длины слов (Ох,функции.Где ошибка?)

#include "stdafx.h"
#include <string.h>
#include <stdlib.h>
#include <stdio.h>
#include <conio.h>
#include "windows.h"
 
int printMenu();
void inputStr(char** str,char** buf);
void printStr(char* str,char* buf,char* tok,int nWords,int* WordLen);
void calc(char** str,char** buf,char** tok,int* nWords,int** WordLen);
 
 
int main()
{
    SetConsoleCP(1251);
    SetConsoleOutputCP(1251);
    
    char* str;
    char* tok;
    char* buf;
    int nWords;
    int *WordLen;
    
    int menu = 0;
 
    do
    {
        menu = printMenu();
        switch(menu)
        {
            case 1:
                inputStr(&str, &buf);
                break;
            case 2:
                calc(&str, &buf, &tok, &nWords, &WordLen);
                break;
            case 3:
                printStr(str, buf, tok, nWords, WordLen);
                break;
            case 0:
                free((void *)WordLen);
                break;
            default:
                printf("\aТакого пункта в меню нет!\n\n");
        }           
    }
    while(menu != 0);
    return 0;
    
}
int printMenu()
{
        printf("***********************************************\n");
        printf("Программа для сортировки слов строки.\n\n");
        printf("1. Ввод строки.\n");
        printf("2. Обработка данных\n");
        printf("3. Вывод результата.\n");
        printf("0. Выход из программы.\n");
        printf("***************************\n");
        
        int m;
 
        while (true)
        {
            if (!scanf("%d", &m))
            {
                printf("\aТакого пункта в меню нет!\n\n");
                fflush (stdin);
            }
            else
            {
                break;
            }
        }
        return m;
}
void inputStr(char** str,char** buf)
{
    *str = new char[1];
    *buf = new char[1025];
    char *tmpr=NULL;
    (*str)[0] = '\0';
    printf("\Введите строку\n");
    char ch = 0;
    while(true)
    {
        ch=getch();
        printf("%c", ch);
        if (ch == 13)
        {
            break;
        }
        int len = strlen(*str);
        tmpr = new char[len+2];
        strcpy(tmpr,*str);
        tmpr[len] = ch;
        tmpr[len+1] = '\0';
        delete [] *str;
        *str = tmpr;
 
    }
    //В str введенная строка (можно с пробелами)
    sprintf(*buf,"%s",*str);
}
void calc(char** str,char** buf,char** tok,int* nWords,int** WordLen)
{   
    char delim[] = " !?.,;";
    //*buf = new char[1025];
    long i,j,bfr;
    *tok = strtok(*buf,delim);
    *nWords = 0;
    while((*tok))
    {
        *nWords=*nWords + 1;
        *tok = strtok(NULL,delim);
    }
    *WordLen = (int *)malloc((*nWords)*sizeof(int));
    sprintf(*buf,"%s",(*str));
    //Записываем в WordLen длины слов строки
    i = 0;
    *tok = strtok(*buf,delim);
    while((*tok))
    {
        (*WordLen)[i] = strlen(*tok);
        *tok = strtok(NULL,delim);
        i=i+1;
    }
    //Сортируем длины выводимых слов
     for(i = 0; i < *nWords; i++)
     {
        for(j = i + 1; j < *nWords; j++)
        {
            if((*WordLen)[i] < (*WordLen)[j])
            {
                bfr = *WordLen[i];
                (*WordLen)[i] = (*WordLen)[j];
                (*WordLen)[j] = bfr;
            }
        }
    }
}
void printStr(char* str,char* buf,char* tok,int nWords,int* WordLen)
{
    char delim[] = " !?.,;";
    //printf("\t буфер\n");
    //printf("%s\n",buf);
     //Выводим слова по убыванию числа символов в них
    printf("\tСлова в порядке убывания их длины:\n");
    for(int i = 0; i < nWords; i++)
    {
        sprintf(buf,"%s",str);
        tok = strtok(buf,delim);
        while(tok && i < nWords)
        {
            if(WordLen[i] == strlen(tok))
            {
 
                printf("%s\n",tok);
                printf("\n");
                //Пробираем слова одинаковой длинны
                if(i < nWords - 1)
                if(WordLen[i] == WordLen[i + 1])
                    i++;
            }
            tok = strtok(NULL,delim);
        }
    }
    
}

tok = strtok(*buf,delim);
    //Записываем в WordLen длины слов строки
    i = 0;
    tok = strtok(*buf,delim);
    while(tok)
    {
        (*WordLen)[i] = strlen(tok);
        tok = strtok(NULL,delim);
        i=i+1;
    }

//Записываем в WordLen длины слов строки
    i = 0;
    *tok = strtok(*buf,delim);
    while((*tok))
    {
        (*WordLen)[i] = strlen(*tok);
        *tok = strtok(NULL,delim); //сюда показывает, и говорит что это след. оператор который будет выполняться после возврата потока из функции
        i=i+1;
    }
//Сортируем длины выводимых слов
     for(i = 0; i < *nWords; i++) //проходит этот цикл 2 раза и на 2 раз показывает на выше указанную ошибку в ^^^ строчке
     {
        for(j = i + 1; j < *nWords; j++)
        {
            if((*WordLen)[i] < (*WordLen)[j])
            {
                bfr = *WordLen[i];
                (*WordLen)[i] = (*WordLen)[j];
                (*WordLen)[j] = bfr;