// urs_2.cpp: определяет точку входа для консольного приложения.
//

#include "stdafx.h"
#include <iostream>
#include <string.h>
#include <conio.h>
#include <Windows.h>

void in(char** &mass_f, char* &razd_f, int &num_f, int* &kol_f, int &kol_w_f, char* &str_f);
void s_index(char** &txt_f, int &num_f, char* &razd_f, int &word_f, int* &index_f, int &kol_w_f, int &razm_i_f);
void out(char** &rez_f, int new_str_r_f);
void obr(char** &txt_f, char** &rez_f, char* &razd_f, int &num_f, int &razm_i_f, int* &index_f, char* &str_f,int new_str_r_f);

int main()
{
    setlocale(LC_ALL, ".1251");
    char **txt = (char**)malloc(sizeof(char*) * 1);
    txt[0] = (char*)malloc(sizeof(char) * 1);
    char *razd = (char*)malloc(sizeof(char)*81);
    int num = 0;
    int *kol = (int*)malloc(sizeof(int)*1);
    int kol_w = 0;
    char *str = (char*)malloc(sizeof(char)*1);
    char **rez;
    int word = 0;
    int razm_i = 0;
    int *index = (int*)malloc(sizeof(int)*1);
    int new_str_r = 0;
    in(txt, razd, num, kol, kol_w, str);
    s_index(txt, num, razd, word, index, kol_w, razm_i);
    obr(txt, rez, razd, num, razm_i, index, str, new_str_r);
    out(rez, new_str_r);
    system("pause");
    return 0;
}

void in(char** &mass_f, char* &razd_f, int &num_f, int* &kol_f, int &kol_w_f, char* &str_f)
{
    int sr_kol = 0;
    int p_kol = 0;
    int f_3 = 1;
    puts("Введите символы-разделители");
    scanf("%s", razd_f);
    do{
        char *str = (char*)malloc(sizeof(char) * 256);
        printf("Введите строку [%d]\n", (num_f + 1));
        scanf("%s", str);
        kol_f = (int*)realloc(kol_f, sizeof(int)*(num_f + 1));
        int len = strlen(str);
        int r_len = strlen(razd_f);
        mass_f = (char**)realloc(mass_f, sizeof(char*)*(num_f + 1));
        mass_f[num_f] = NULL;
        mass_f[num_f] = (char*)realloc(mass_f[num_f], sizeof(char)*(len + 1));
        strcpy(mass_f[num_f], str);
        int f = 1;
        int r_word = 0;
        int f_2 = 0;
        for (int i = 0; i < len; i++)
        {
            for (int j = 0; j < r_len; j++)
            {
                char a = str[i], b = razd_f[j];
                if (str[i] != razd_f[j] && f == 1)
                {
                    f = 1;
                }
                else
                {
                    f = 0;
                }
            }
            if (f == 1)
            {
                r_word++;
            }
            f = 1;
        }
        kol_f[num_f] = r_word;
        p_kol = p_kol + len;
        if (num_f != 0)
        {
            sr_kol = (p_kol - len) / (num_f);
        }
        if (sr_kol == kol_f[num_f])
        {
            f_3 = 0;
        }
        num_f++;
    } while (f_3 == 1);
    puts("Введите количество слов: ");
    scanf("%d", &kol_w_f);
    puts("Введите строку для вставки: ");
    int i = 0;
    while ((str_f[i] = getch()) != '\r')
    {
        i++;
        str_f = (char*)realloc(str_f, (i + 1)*sizeof(char));
    }
    str_f[i] = '\0';
}

void s_index(char** &txt_f, int &num_f, char* &razd_f, int &word_f, int* &index_f, int &kol_w_f, int &razm_i_f)
{
    int flag = 0;
    word_f = 0;
    for (int i = 0; i < num_f; i++)
    {
        int len = strlen(txt_f[i]);
        for (int j = 0; j < len; j++)
        {
            int r_len = strlen(razd_f);
            for (int k = 0; (k < r_len) && (txt_f[i][j] != razd_f[k]); k++)
            {

            }
            if (txt_f[i][j] == '\0')
            {
                flag = 0;
            }
        }
            word_f++;
        if (word_f == kol_w_f)
        {
            index_f = (int*)realloc(index_f, sizeof(int)*(razm_i_f+1));
            index_f[razm_i_f] = i;
            razm_i_f++;
        }
        flag = 0;
    }
}

void obr(char** &txt_f, char** &rez_f, char* &razd_f, int &num_f, int &razm_i_f, int* &index_f, char* &str_f, int new_str_r_f)
{
    int len_str = strlen(str_f);
    int len;
    int r_len = strlen(razd_f);
    int k_num = 0;
    int new_razm = 0;
    char *help;
    rez_f = NULL;
    for (int i = 0; i < num_f; i++)
    {
        len = strlen(txt_f[i]);
        rez_f = (char**)realloc(rez_f, sizeof(char*)*(i+1));
        for (int j = 0; j < razm_i_f; j++)
        {
            if (i == index_f[razm_i_f])
            {
                rez_f[i] = (char*)realloc(rez_f[i], sizeof(char)*len_str);
                rez_f[i] = NULL;
                strcpy(rez_f[i], str_f);
                i++;
                rez_f = (char**)realloc(rez_f, sizeof(char*)*(i++));
                rez_f[i] = (char*)realloc(rez_f[i], sizeof(char)*len);
                rez_f[i] = NULL;
                strcpy(rez_f[i], txt_f[i--]);
            }
            else
            {
                int f = 0;
                int r_word = 0;
                {
                    for (int k = 0; k < len; k++)
                    {
                        for (int j = 0; j < r_len; j++)
                        {
                            if (txt_f[i][k] == razd_f[j])
                            {
                                txt_f[i][k] = ' ';
                                k = 0;
                            }
                            else
                            {
                                if (txt_f[i][k] == ' ')
                                {
                                    f = 0;
                                }
                                else
                                {
                                    if (txt_f[i][k] != razd_f[j] && f == 1)
                                    {
                                        f = 1;
                                    }
                                    else
                                    {
                                        f = 0;
                                    }
                                }
                            }
                        }
                        if (f == 1)
                        {
                            r_word++;
                            k_num = k;
                        }
                    }
                }
                if (r_word == 1)
                {
                    new_razm = len - k_num;
                    help = (char*)realloc(help,sizeof(char)*new_razm);
                    help = NULL;
                    for (int k = k_num; k < len; k++)
                    {
                        int h = 0;
                        help[h] = txt_f[i][k];
                        h++;
                    }
                }
                rez_f[i] = (char*)realloc(rez_f[i], sizeof(char)*new_razm);
                rez_f[i] = NULL;
                strcpy(rez_f[i],help);
            }
        }
        new_str_r_f++;
    }
}
void out(char** &rez_f, int new_str_r_f)
{
    for (int i = 0; i < new_str_r_f; i++)
    {
        printf("%s\n", rez_f[i]);
    }
}