Перевод кода из с++ в pascal/delphi

Нужна помощь перевода кода из c++ в pascal/delphi

Вот код:
#include
#include
const double eq=1E-7;
class Part{
public:
int id,m,f;
double ac;
};
inline double abs(double a){return a>0.0?a:-a;}
inline int cmp(const void *a,const void *b){
double res=(((Part*)b)->ac)-(((Part*)a)->ac);
if (abs(res)id)-(((Part*)b)->id);
else if (res>0) return 1;
else return -1;
}
inline int cmpI(const void* a,const void* b){
return (*((int*)a)) -(*((int*)b));
}
int main()
{
FILE *in=fopen("boost.in","r");
FILE *out=fopen("boost.out","w");
Part p[30];
int N,i,ans[30],n=0,F,M;
double a;
fscanf (in,"%d %d %d",&F,&M,&N);
a=(double)F/M;
for (i=1;i<=N;i++){
fscanf (in,"%d %d",&p.f,&p.m);
p.id=i;
p.ac=(double)(p.f)/(p.m);
}
qsort(p+1,N,sizeof(Part),cmp);
for (i=1;i<=N && p.ac>a;i++){
ans[n++]=p.id;
F+=p.f;
M+=p.m;
a=(double)F/M;
}
if (!n) fprintf(out,"NONE\n");
else {
qsort(ans,n,sizeof(int),cmpI);
for (i=0;i);
}
return 0;
}

Своими силами не получается.