Перевод кода из с++ в 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