Найти и вывести на печать слова, у которых первая буква входит в слово еще раз

#include <iostream>
#include <fstream>
#include <string>
using namespace std;
 
// функция определния подходящего слова
bool Compar(string s) 
{
    bool check = false;
    //cout << s << " " << s1 << endl;
    int dl = s.length(); // длина строки
    for (int i = 1; i < dl; i++)
        if (s.substr(i, 1) == s.substr(0, 1)) check = true;
    return check;
}
 
int main() 
{
    setlocale(LC_CTYPE, "rus");
    string s;
    int kol = 0;
    ifstream f("text.txt"); //открываем файл для чтения
    cout << "Words:" << endl;
    while (!f.eof()) 
    {
        // вводим слово
        f >> s;
        // удаляе в конце . или ,
        if (s.substr(s.length() - 1, 1) == "." || s.substr(s.length() - 1, 1) == ",")
            s.erase(s.length() - 1, 1);
        // определяем нужное слово
        if (Compar(s))
            cout << s << endl, kol++;
    }
    cout << endl << "Count = " << kol << endl;
    f.close();
    system("pause");
    return 0;
}

#include <iostream>
#include <fstream>
#include <sstream>
#include <string>
#include <algorithm>
#include <iterator>
 
void output_words(std::ostream& _out, std::istream& _in){
    const char delim[] = " \t\n,.!?";
    std::string s;
    std::string::size_type j, i;
    std::ostreambuf_iterator<char> _po(_out);
    unsigned int k = 0;
 
    while(std::getline(_in, s)){
        for(i = 0; (i = s.find_first_not_of(delim, i)) != std::string::npos; i = j){
            if((j = s.find_first_of(delim, i)) == std::string::npos)
                j = s.length();
 
            if(std::find(s.begin() + (i + 1), s.begin() + j, s[i]) != s.begin() + j){
                std::copy(s.begin() + i, s.begin() + j, _po);
                *_po++ = '\n';
                ++k;
            }
        }
    }
 
    if(k > 0){
        _out.flush();
        _out << "count words: " << k << std::endl;
    }
}
 
int main(void){
    //для примера: ввод из строки
    char s[] = "MEMO, go APACHE Dump, ARPANET...windows";
    std::istringstream sp(s);
    output_words(std::cout, sp);
 
    //ввод из файла
    std::ifstream fp("file.txt");
    if(fp.is_open()){
        output_words(std::cout, fp);
        fp.close();
    }
    std::cin.get();
    return 0;
}

#include <algorithm>
#include <fstream>
#include <iostream>
#include <iterator>
#include <string>
 
int main()
{
    std::ifstream ifs("input.txt");
    using input_str = std::istream_iterator<std::string>;
    std::copy_if(input_str(ifs), input_str(), std::ostream_iterator<std::string>(std::cout, " "),
        [](const auto &s) { return s.find(s.front(), 1) != std::string::npos; });
}