Создание функций

#define _CRT_SECURE_NO_WARNINGS
#include <locale.h> 
#include <stdlib.h> 
#include<stdio.h>
#include<string.h>
 
struct LIST { //структура
    char* word;
    LIST* next; //ссылка на след элемент списка
};
 
int main()
{
    FILE* in; //открытие файла
    LIST* head, * p, * prev; //вспомогательные указатели
    char word[10000]; //размер списка
    in=fopen("C:\\Users\\Admin\\Desktop\\in.txt", "r"); //чтение файла
    if (in) //если файл сущ
    {
        if (fscanf(in, "%s", word) != EOF) //проверка конца слова
        {
            head = new LIST; //выделение памяти под голову списка
            p = head; //заносим адрес головы списка во вспом. указатель 
            p->word = new char[strlen(word) + 1];
            strcpy(p->word, word); //записать слово
            while (fscanf(in, "%s", word) != EOF)
            {
                p->next = new LIST; //установить ссылку узла р на новый узел
                p = p->next; //поиск последнего узла
                p->word = new char[strlen(word) + 1];
                strcpy(p->word, word);
            }
            p->next = NULL; //окончание списка
            p = head;
            prev = head;
            while (p->next)
                if (strlen(p->word) == 1)
                    if (p == head)// обмен узлов
                    {
                        head = p->next; //Установление связи в обход удаляемого элем. 
                        prev = head;
                        delete p->word;
                        delete p; //освобождение памяти
                        p = head;
                    }
                    else
                    {
                        prev->next = p->next;
                        delete p->word;
                        delete p;
                        p = prev->next;
                    }
                else
                {
                    prev = p;
                    p = p->next;
                }
            if (strlen(p->word) == 1) //удаление узла
            {
                if (p == head) 
                    head = NULL;
                else prev->next = NULL;
                delete p->word;
                delete p;
            }
            fclose(in);
            in = fopen("C:\\Users\\Admin\\Desktop\\in.txt", "w");
            if (head)
            {
                while (head->next)
                {
                    p = head;
                    fprintf(in, "%s ", p->word);
                    head = p->next;
                    delete p->word;
                    delete p;
                }
                fprintf(in, "%s", head->word);
                delete head->word;
                delete head;
                head = NULL;
            }
        }
        else
        {
            fclose(in);
            in = fopen("C:\\Users\\Admin\\Desktop\\in.txt", "w");
        }
        fclose(in);
    }
}