Ошибка при удалении массива - C++

[alexboliam]

Программа работает нормально, но в конце при удалении выдает ошибку "Invalid address specified to RtlValidateHeap( 0000014A67F60000, 00000031EF93F437 )". Открывается файл delete_scalar.cpp и пишется "*название файла* вызвал срабатывание точки останова." Поясните, как её избежать.

#include "stdafx.h"
#include <iostream>
#include <utility>
#include <cstring>
#include <stdio.h>
using namespace std;
 
int create_words(char*, char**);
void sort(char**, int);
 
int main()
{
    char **arr;
    arr = new char*[100];
    char s[100];
    puts("enter string: ");
    gets_s(s);
    int i = create_words(s, arr);
    sort(arr, i);
    for (int i = 0; i < 100; i++) {
        delete[] arr[i];
    }
    delete[] arr;
    system("pause");
}
int create_words(char *s, char **mas)
{
    int k = 0;
    char *delimiter = " ";
    char *p;
    char *np = NULL;
    p = strtok_s(s, delimiter, &np);
    while (k < 20 && p != NULL)
    {
        mas[k++] = p;
        p = strtok_s(NULL, delimiter, &np);
    }
    for (int i = 0; i < k; i++)
    {
        cout << mas[i] << "  " << endl;
    }
    return k;
}
 
void sort(char **arr, int size)
{
    for (int i = 0; i < size - 1; ++i)
        for (int j = 0; j < size - 1; ++j)
            if (strlen(arr[j + 1]) < strlen(arr[j]))
                swap(arr[j], arr[j + 1]);
}

[waleri]

Ну так new вызывается один раз а delete - много-много раз.
Подумайте что именно у вас выделяется и что именно удаляется.

[alexboliam]

Сообщение от waleri

Ну так new вызывается один раз а delete - много-много раз.
Подумайте что именно у вас выделяется и что именно удаляется.

Ну, выходит что я создаю память под весь массив строк, а удаляю сначала каждый элемент отдельно, а потом и сам массив? Подскажите, пожалуйста что поменять, если я не правильно думаю.
P.S. И обязательно ли удалять после выполнения программы массив?
P.P.S. Нужно просто оставить

delete[] arr;

, а цикл убрать?