Собрать стек со словами, у которых первая и последняя буква совпадают: выяснить причину падения программы

#include <windows.h>  // SetConsoleOutputCP, SetConsoleCP
#include <stdio.h>    //printf , fgets
#include <conio.h>    // getch
#include <string.h>   // strcpy, strncmp, strchr
#include <locale>
#include <fstream>
#include <iostream>
#include "string.h"
using namespace std;
//---------------------------------------------------------------------------
struct TInfo{
    char FamIO[31];
};
struct TElem {  // моделирование стека на основе односвязного списка
    TInfo Info;   //  или struct TInfo Info;
    TElem *Next;  // или struct TElem *Next; здесь и далее
};
//-----------------------прототипы-------------------------------------------
TElem* PushStack(TElem *St, TInfo Info); // добавить элемент в стек
TInfo PopStack(TElem **PSt);  //извлечь элемент из стека
// дополнительная процедура перекладывания элемента из одного стека (StTop) в другой(Dop)
void TopToTop(TElem **PSt1, TElem **PSt2); // без изменения адресов элементов, только связи
//----------первая часть: создание стека из текстового файла
TElem* CreateStack(TElem *St);
//----------вторая часть: вывод стека на экран ------
void OutputStack(TElem *St);
//----------третья часть: решение задачи -------------
TElem* Decide(TElem **PSt1, TElem **PSt2, TElem *St2);
//----------четвертая часть: освобождение памяти -----
TElem* FreeStack(TElem *St);
//---------------------------------------------------------------------------
int main()
{
    TElem *StackTop1 = NULL, *StackTop2 = NULL, *StackTop3 = NULL, *StackTop4 = NULL;
    char ch;
    setlocale(LC_ALL, "russian_russia");
    do{
 
        cout << "N - создать новый стек; V - вывод; D - решение; F - освободить; E - конец. " << endl << "Ваш выбор?" << endl;
        ch = getchar();   fflush(stdin);
        ch = toupper(ch);
        switch (ch) {
            //----------первая часть: создание стека из текстового
        case 'N': if (StackTop1) {
            printf("Error: сначала надо освободить память!"); break;
        }
                  cout << "Введите слова для первого стека" << endl;
                  StackTop1 = CreateStack(StackTop1);
                  cout << "Введите слова для второго стека" << endl;
                  StackTop3 = CreateStack(StackTop3);
                  system("pause");
                  system("cls");
                  break;
                  //----------вторая часть: вывод стеков на экран ------
        case 'V': 
            printf("Первый стек:\n"); OutputStack(StackTop1);
            printf("\nВторой стек:\n"); OutputStack(StackTop3);
            printf("\nРезультативный стек:\n"); OutputStack(StackTop2);
            system("pause");
            system("cls");
            break;
            //----------третья часть: решение задачи -------------
        case 'D': 
            StackTop2 = Decide(&StackTop1, &StackTop3, StackTop2);
            system("cls");
            break;
            //----------четвертая часть: освобождение памяти -----
        case 'F': 
            StackTop1 = FreeStack(StackTop1);
            StackTop2 = FreeStack(StackTop2);
            StackTop3 = FreeStack(StackTop3);
            StackTop4 = FreeStack(StackTop4);
            printf("Вся память под стеки особождена\n");
            system("pause");
            system("cls");
            break;
            //-----------------------выход------------------------
        case 'E': return 0;
        default:
            printf("Нет такой команды\nPress any key");
            _getch();
            system("cls");
        }
 
    } while (ch != 'E');
 
    return 0;
}
//---------------------------------------------------------------------------
TElem* PushStack(TElem *St, TInfo Info){ // добавить элемент в стек
    TElem *Elem = new TElem;
    //Elem->Info.Ball = Info.Ball;
    strcpy_s(Elem->Info.FamIO, Info.FamIO);
    Elem->Next = St;
    return Elem; // Адрес новой вершины
}
TInfo PopStack(TElem **PSt){ //извлечь элемент из стека
    if (PSt){
        TElem *Elem = *PSt;
        TInfo Info = Elem->Info;
        *PSt = Elem->Next;
        delete Elem;
        return Info;
    }
}
// дополнительная процедура перекладывания элемента из одного стека (StTop) в другой(Dop)
void TopToTop(TElem **PSt1, TElem **PSt2){
    TElem *Elem, *StTop = *PSt1, *Dop = *PSt2;
    Elem = StTop;
    StTop = StTop->Next;  // или StTop=(*StTop).Next;
    Elem->Next = Dop;
    Dop = Elem;
    *PSt1 = StTop; *PSt2 = Dop;  // сохранить новые адреса вершин по адресам PSt1 и PSt2
    return;
}
//----------первая часть: создание стека из текстового
TElem* CreateStack(TElem *St){
    int kol = 0;
    char *n, *r;
    TInfo Info;
 
    while (1){
        printf("Введите слово (или **) = ");
        fgets(Info.FamIO, 30, stdin);  fflush(stdin);
        n = strchr(Info.FamIO, '\n'); if (n) Info.FamIO[n - Info.FamIO] = '\0';
        r = strchr(Info.FamIO, '\r'); if (r) Info.FamIO[r - Info.FamIO] = '\0';
        if (strncmp(Info.FamIO, "**", 2) == 0) break; // условие окончания ввода - два первых символа **
        St = PushStack(St, Info);
        kol++;
    }
    printf("Создан стек из %d элементов\n", kol);
    cout << endl << endl << endl << endl;
    return St;
}
//----------вторая часть: вывод стека на экран ------
void OutputStack(TElem *St){
    TElem *Dop = NULL;
    TInfo inf;
    while (St){
        inf = PopStack(&St);
        cout << "            " << inf.FamIO << endl;
        Dop = PushStack(Dop, inf);
    }
    while (Dop) TopToTop(&Dop, &St);
    return;
}
//----------третья часть: решение задачи -------------
TElem* Decide(TElem **PSt1, TElem **PSt2, TElem *St2){
    TElem * St1 = *PSt1, *Sta2 = *PSt2, *Dop = NULL, *Dop1 = NULL;
    St2 = FreeStack(St2);
 
    int Sum = 0, N = 0, dlina,p;
    bool rel;
    TInfo inf1;
    if (St1) {
        while (St1){
            dlina = strlen(St1->Info.FamIO);
            rel = false;
            if (St1->Info.FamIO[0] == St1->Info.FamIO[dlina - 1]){ rel = true; }
            if (rel == true) {
                St2 = PushStack(St2, St1->Info);
                inf1 = PopStack(&St1);
            }
            else { TopToTop(&St1, &Dop); };
        }
        while (Dop) TopToTop(&Dop, &St1);
    }
    if (Sta2) {
        while (Sta2){
            dlina = strlen(Sta2->Info.FamIO);
            rel = false;
            if (Sta2->Info.FamIO[0] == Sta2->Info.FamIO[dlina - 1]){ rel = true; }
            if (rel == true) {
                St2 = PushStack(St2, Sta2->Info);
                inf1 = PopStack(&Sta2);
            }
            else { TopToTop(&Sta2, &Dop1); };
        }
 
        while (Dop1) TopToTop(&Dop1, &Sta2);
    }
    system("pause");
    *PSt1 = St1; // новый адрес через параметр (изменение по адресу)
    *PSt2 = Sta2;
    return St2;  // новый адрес через результат функции вернется
}
//----------четвертая часть: освобождение памяти -----
TElem* FreeStack(TElem *St){
    TInfo Info;
    if (St){
        while (St){
            Info = PopStack(&St);
        }
        return St;
    }
}