Удалить из файла все слова, не являющиеся палиндромами

#include <fstream>
#include <string>
#define DELIM  " \t\n.,"
#pragma warning(disable : 4996)
 
 
bool checkWord(char *word) {
    short len=strlen(word);
    short n{};
    char word_m[45]{};
    word += strlen(word);
    while (n < len)
        word_m[n++] = *(--word);
if (memcmp(word, word_m, strlen(word_m)-1) == 0 && strlen(word_m) >1)
return true;
return false;
}
 
 
int main()
{
    std::string new_txt;
std::string line;
    static wchar_t buf[256]{L"D:\\TEST.txt"};//Под путь
    //------------------------------ 
    std::ifstream fin(buf);
if (fin.is_open()) {
        while (getline(fin, line))// =============== Читаем текст =========
        {
            char *str = &line[0];
            for (char* word = strtok(str, DELIM); word; word = strtok(NULL, DELIM))
                if (checkWord(word))                
                    new_txt += word; new_txt += ", ";
                }
        fin.close();
    std::ofstream fout(buf);
        if (fout.is_open()) {
            fout << new_txt << std::endl;
            fout.close();
        }
}
    return 0;
}

#include <iostream>
#include <fstream>
#include <sstream>
#include <algorithm>
 
bool isPalindrome( const std::string &str ){    
    std::string word = str;
    std::transform( word.begin(), word.end(), word.begin(), ::tolower );
 
    std::string drow = word;
    std::reverse( drow.begin(), drow.end() );
 
    return word == drow;
}
 
int main(){
    std::string fileIn = "input.txt"; 
    std::string fileOut = "output.txt"; 
 
    std::ifstream inFile( fileIn );
    std::ofstream outFile( fileOut );
 
    if( !inFile.is_open() ){
        std::cerr << "Failed to open input file." << std::endl;
        return 1;
    }
 
    if( !outFile.is_open() ){
        std::cerr << "Failed to open output file." << std::endl;
        return 1;
    }
 
    std::string text;
    while( std::getline( inFile, text ) ){
        std::cout << text << std::endl;
        std::istringstream iss( text );
 
        std::string word;
        while( iss >> word ){
            if( isPalindrome( word ) ){
                outFile << word << " ";
                std::cout << word << " ";
            }
        }
 
        outFile << std::endl;
        std::cout << std::endl;
    }
 
    inFile.close();
    outFile.close();
 
    std::cout << std::endl; 
}

std::string text;
    while (std::getline(inFile, text)) {
        std::cout << text << std::endl;
        std::istringstream iss(text);
 
        std::string word;
        while (iss >> word) {
            //if (isPalindrome(word)) {
            //  outFile << word << " ";
                std::cout << word << " "<< std::endl;
            //}
        }

bool checkWord(char *word) {
    short len=strlen(word);
    short n{};
    char word_m[45]{};
    word += strlen(word);
    while (n < len)
        word_m[n++] = *(--word);
    for (int i = 0; i < len; ++i)
        if (tolower(word_m[i]) != tolower(word[i]))
            return false;
            return true;
}