Конвертер из Паскаля в Си

int Converter::ReadText(char * s1)
    {
        ifstream fin("file.txt");
            if ((file_in = fopen(s1, "file1.txt")) == NULL){
            return 0;
        }
        fseek(file_in, 0, SEEK_END);
        inlen = ftell(file_in);
        fseek(file_in, 0, SEEK_SET);
        if (inlen>lenprog) inlen = lenprog;
        inlen = fread(instr,1,inlen,file_in);
        instr[inlen] = 0;
        inpos = 0;
        outlen = 0;
        return 1;
    }
    //вывод обработанного текста
    void Converter::PutText(char * s2)
    {
        ofstream out("res2.txt");
        if ((file_out = fopen(s2, "res2.txt")) == NULL)
        {
            return;
        }
        fwrite(outstr,outlen,1,file_out);
    }

void Converter::Translate()
    {
        int b;
        int k;
        koper1 = koper2 = 0;
        put_str("#include <stdio.h>\n\n"); //для scanf и printf
        do
        {
            b = 1;
            ReadWordS();
            k = funckeyW(); //проверка на ключевое слово
            if (k==keyW_var){ //начало блока переменных
                koper1++;
                if (!funcvar(1)) {
                    Error_oper();
                }
                else koper2++; }
                else
                    if (k==keyW_begin){ //начало блока операторов
                        if (!funcbegin(1)) {
                            Error_oper();
                        }
                        b = 0;
                    }
                    else
                        if (find_Comment()) fin_Comment(); //комментарии
                        else {
                            koper1++;
                            Error_oper();
                        };
        } while (b==1);
        if (instr[inpos]!='.') return; //точка в конце программы
        inpos++;
    }

void Menu::Change()
    {
        int y;
        bool flag = true;
        while (flag)
        {
            system("cls");
            cout << "Выберите пункт меню: " << endl << "1 – Загрузить файл;" << endl << "2 – Конвертировать;" <<endl<<"3 - выход." << endl;
            cin >> y;
            if (y == 1)
            {
                VvodFail();
                system("pause");
            }
            if (y == 2)
            {
                Converter ReadText();
                Converter Translate();
                Converter PutText();
                ///Convertation();
                system("pause");
            }
            if (y == 3) flag = false;
        }
    }
};

const int Key_WordsP_num = 7;
char *KeyW[Key_WordsP_num] =   { "begin", "end", "var", "integer","real","read","write"};
 
#define keyW_begin 0
#define keyW_end 1
#define keyW_var 2
#define keyW_integer 3
#define keyW_real 4
#define keyW_read 5
#define keyW_write 6
 
const int Key_WordsC_num = 7;
char *KeyWC[Key_WordsC_num] = { "{", "}"," ","int","real","scanf","printf"};
 
#define KeyWC_ 0
#define KeyWC_ 1
#define KeyWC_ 2
#define KeyWC_int 3
#define KeyWC_real 4
#define KeyWC_scanf 5
#define KeyWC_printf 6
 
class Converter
{
public:
 
    char s[256]; //идент-р переменной
    int tp; 
    int tid;
    char instr[1000],
    outstr[1000];
int inlen,outlen,inpos;//текущие позиции (строки входные, выходные, позиция в строке входной)
int koper1,koper2,ker;//эти переменные считают количество операторов во входном, выходном файле и кол-во ошибок
int lenght_world; //длина "слова"
int wtype; //тип "слова"
int wnumf; //0 - целое число, 1 - дробное
int dt; //размер отступа (от начала строки)
Converter  *next,*np, *p,*vars, *lvars,*head, *ntype,*typeslist; 
 
    // здесь идет проверка на ключевое слово,
    // сравниваются полученное нами слово со словом из списка
    // и если да, то возвращается номер слова в списке
    // проверка на ключевое слово
    ///int Converter::funckeyW()
 
 
int Converter::funckeyW(char s)
    {
        ifstream fin("file.txt");
        if (!fin.is_open())
            cout<<"Файл отсутствует!\n";
        else
        {
            while (!fin.eof())
            {
            while (fin!='\0')
            {
            fin.getline(instr,s);
            }
        for (int i=0; i<Key_WordsP_num; i++)
        {// просмотр всего массива Key_Words_num
            for (int i=0; i<Key_WordsC_num; i++)
            {
                if(Key_WordsP_num[KeyW]==Key_WordsC_num[KeyWC])
                {
                    ofstream fout;
        fout.open("res2.txt");
        fout<<i;
        fout.close();
                }
            }
        }   
            }
            }
        return 0;
        }