Изменить код Visual Studio под Borland C++

#include<iostream>
#include<string>
#include<fstream>
#include <ctype.h>
#include<stdio.h>
#include"модуль.h"
 
using namespace std;
 
void main()
{
 
    fstream file("file.txt",ios::in);
    ofstream file1("file1.txt",ios::out);
    fstream file2("sl.txt",ios::out);
    file2.close();
    int a;
    string srt;
    for(int i=0;!file.eof();i++)
    {
        getline(file,srt);
        if(file.eof()){break;}
        srt=fun1(srt);
        srt=fun2(srt);
        fun3(srt);
        file1<<srt<<"\n";
    }
    file.close();
    file1<<"Dlinnoe slovo: ";
    file2.open("sl.txt",ios::in);
    for(;!file2.eof();)
    {
        file2>>srt;
        if(file2.eof()){break;}
        file1<<" "<<srt;
        
    }
    file1.close();
    file2.close();
    remove("file.txt");
    rename("file1.txt","file.txt");
    remove("sl.txt");
 
 
 
}

#include<iostream>
#include<string>
#include<fstream>
#include <ctype.h>
 
using namespace std;
 
 
 
string fun1(string str)
{
    int a=0,dlina=str.length();
    
    for(int n=0,e=0;n<dlina;n++)
    {
    a=str.find_first_of('.',a+1);
    if(a==-1){break;}
    if(a!=dlina-1)
    {
    if(str[a+1]!=' ' && a!=-1)//('A'<= str[a+1] && str[a+1]<='Z') && a!=-1)
    {
        str.replace(a,1,". ");
        
    }
    }
    }
    return str;
}
 
string fun2(string str)
{
    int a=0,dlina=str.length();
    if (('A'<= str[1] && str[1]<='Z') )
    {
        str[1]=tolower(str[1]);
    }
 
    for(int n=0;n<dlina;n++)
    {
    a=str.find_first_of(' ',a+1);
    if(str.find_first_of(' ',a+1)==-1){break;}
    if(a!=-1){
        str[a+2]=tolower(str[a+2]);}
    }
    return str;
}
 
string fun3(string str)
{
    ofstream file("sl.txt",ios::app);
    int a=0,dlina=str.length();
    a=str.find_first_of(' ',a);
    if(a>=19)
    {
        file<<str.substr(0,a);
        file<<"\n";
    }
    a=0;
    for(int n=0,e=0,t=0;n<dlina;n++)
    {
        a=str.find_first_of(' ',a+1);
        t=str.find_first_of(' ',a+1);
        if(t==-1)
        {
            if(dlina-a>=19)
            {
                    file<<str.substr(a+1,dlina-1);
                    file<<"\n";
            }
            break;
        }
        
        e=t-a;
        if(e>=19)
        {
            string dd=str.substr(a+1,e);
            file<<str.substr(a+1,e-1);
        file<<"\n";
        }
    }
    file.close();
    return str;
}