Перевести код c в delphi

// 3.cpp: определяет точку входа для консольного приложения.
//
 
#include "stdafx.h"
#include <iostream>
#include <string>
#include <vector>
#include <clocale>
#include <fstream>
 
 
using namespace std;
 
bool opt(int n){
    ifstream fin("input.txt");
    int temp,temp1;
    fin>>temp>>temp1;
    int i=0;
    while (i<n){
        if (temp>temp1) return false;
        temp=temp1;
        fin>>temp1;
        i++;
    }
    fin.close();
    return true;
}
 
void tap2(int a[3],int n);
 
void tap1(int n){
    ifstream fin("input.txt");
    ofstream fout1("1.txt");    
    ofstream fout2("2.txt");    
    ofstream fout3("3.txt");
 
    int x,y,f=1,i=1; int a[3]={0};
    fin>>x>>y;
    
    while (fin.eof() || i<=n){
        if (x<=y){
            if (f==1) { fout1<<x<<" "; a[0]++; }
            if (f==2) { fout2<<x<<" "; a[1]++; }
            if (f==3) { fout3<<x<<" "; a[2]++; }
            x=y;
        }else{
            if (f==1) { fout1<<x<<" "; a[0]++; }
            if (f==2) { fout2<<x<<" "; a[1]++; }
            if (f==3) { fout3<<x<<" "; a[2]++; }
            if (f==3) f=1; else ++f;        
            x=y;
        }
        i++;
        if (i<n) fin>>y;        
    }
    fin.close();
    fout1.close();
    fout2.close();
    fout3.close();
    tap2(a,n);
}
 
void tap2(int a[3],int n){
    ofstream foutinp("input.txt");
    ifstream fin1("1.txt");
    ifstream fin2("2.txt");
    ifstream fin3("3.txt");
    int x,y,z, b[3]={0};
    fin1>>x; fin2>>y; fin3>>z;
 
    for (;;){
        if (x<=y && x<=z && b[0]<=a[0]){
            if (x==999) break;
            foutinp<<x<<" ";
            b[0]++;
            fin1>>x;
        } else if (y<=x && y<=z && b[1]<=a[1]){
            if (y==999) break;
            foutinp<<y<<" ";
            b[1]++;
            fin2>>y;
        } else if (z<=x && z<=y && b[2]<=a[2]){
            if (z==999) break;
            foutinp<<z<<" ";
            b[2]++;
            fin3>>z;
        }   
        if (b[0]==a[0]) x=999; 
        if (b[1]==a[1]) y=999;
        if (b[2]==a[2]) z=999;
    }
    foutinp.close();
    fin1.close();
    fin2.close();
    fin3.close();
}
 
int main()
{
    int n;
    setlocale (LC_ALL, "Russian");
    int temp;
    cout<<"<-- Входные данные -->"<<endl;
    cout<<"Кол-во генерируемых чисел: ";
    cin>>n;
    ofstream foutinp("input.txt");
    for(int i=0; i<n; i++){
        temp=0+rand()%150;
        cout<<temp<<" ";
        foutinp<<temp<<" ";
    }
    foutinp.close();
    cout<<endl<<endl;
    while (!opt(n)){
    tap1(n);
    }
    cout<<"<-- Результат -->"<<endl;
    ifstream fin("input.txt");
    for (int i=0; i<n; i++){
        fin>>temp;
        cout<<temp<<" ";
    }
    fin.close();
    return 0;
}