Перевод из C# в Pascal ABC

#include <iostream>
#include <cstdio>
#include <algorithm>
#include <string>
#include <string.h>
#include <cmath>
#include <queue>
#include <vector>
#include <map>
#include <stdlib.h> // for exit(0)
#include <stack>
#include <list>
#include <ctime>
 
using namespace std;
 
const int MAX_VOT = 2e6 + 5;
const int MAX_INT = 2147483647;
 
struct party {
    int vot; // количество голосов
    int top; // цена лидера
    int num; // порядковый номер партии
    int pay; // цена партии
};
struct cmpVot {
    bool operator () (party const &a, int vot) const {
        return a.vot < vot;
    }
    bool operator () (int vot, party const &b) const {
        return vot < b.vot;
    }
    bool operator () (party const &a, party const &b) {
        return a.vot < b.vot;
    }
};
bool cmpPay (const party &a, const party &b) {
    return a.pay < b.pay;
}
bool cmpNum (const party &a, const party &b) {
    return a.num < b.num;
}
 
typedef vector<party>::iterator ITER;
 
int n;
vector<party> mas;
vector<long long> sum;
void input(){
    scanf("%d", &n);
    mas.resize(n);
    sum.resize(n);
    for (int i=0;i<n;i++) {
        mas[i].num = i;
        scanf("%d %d", &mas[i].vot, &mas[i].top);
    }
}
void findPayment(int pos) {
    if (mas[pos].top == -1) {
        mas[pos].pay = MAX_INT;
        return;
    }
    int resVot;
    int l = mas[pos].vot, r = MAX_VOT;
    while (l <= r) {
        int newVot = (l+r)>>1;
        ITER it = lower_bound(mas.begin(), mas.end(), newVot, cmpVot());
        if (it != mas.end() && newVot == mas[pos].vot) it++; 
        if (it != mas.end()) {
            int ind = it - mas.begin();
            long long f1 = sum[ind] - ((long long)n - ind)*(newVot - 1);
            long long f2 = newVot - mas[pos].vot;
            if  (newVot - mas[pos].vot            
                >=
                sum[ind] - ((long long)n - ind)*(newVot - 1) )
               
            {
                // можем купить
                resVot = newVot;
                r = newVot - 1;
            }
            else
                l = newVot + 1;
        }
        else {
            resVot = newVot;
            r = newVot - 1;
        }
    }
    mas[pos].pay = resVot - mas[pos].vot + mas[pos].top;
}
void changeVotes(int pos) {
    int newVot = mas[pos].pay - mas[pos].top + mas[pos].vot;
    int ind = lower_bound(mas.begin(), mas.end(), newVot, cmpVot()) - mas.begin();
   
    int delta = newVot - mas[pos].vot;
    mas[pos].vot = newVot;
 
    for (int i=ind;i<n;i++) {
        if (i == pos) continue;
        delta -= mas[i].vot - (newVot - 1);
        mas[i].vot = newVot - 1;
    }
    int i = n;
    while (delta) {
        i--;
        if (i == pos) continue;
        if (mas[i].vot > delta) {
            mas[i].vot -= delta;
            delta = 0;
        }
        else {
            delta -= mas[i].vot;
            mas[i].vot = 0;
        }
    }   
}
int resPay, resInd;
void solve(){
    sort(mas.begin(), mas.end(), cmpVot());
 
    sum[n-1] = mas[n-1].vot;
    for (int i=n-2;i>=0;i--)
        sum[i] = sum[i+1] + mas[i].vot;
    for (int i=0;i<n;i++)
        findPayment(i);
   
    int posMinPay = min_element(mas.begin(), mas.end(), cmpPay) - mas.begin();
    resPay = mas[posMinPay].pay;
    resInd = mas[posMinPay].num + 1;
    changeVotes(posMinPay);
 
    sort(mas.begin(),mas.end(),cmpNum);
}
void output() {
    printf("%d\n%d\n", resPay, resInd);
    for (int i=0;i<n;i++)
        printf("%d ", mas[i].vot); 
}
int main()
{
    freopen("input.txt","r",stdin);
    freopen("output.txt","w",stdout);
 
    input();
    solve();
    output();
 
    return 0;
}