Помогите перевести программку с С++ на Delphi

#include
#include
#include
#include

void Jacobi (int N, float **A, float *F, float *X)
{
float eps=0.001;
float * TempX = new float[N];
float norm=0;
do {
for (int i = 0; i < N; i++) {
TempX=0;
TempX =- F;
for (int g = 0; g < N; g++) {
if (i != g)
TempX += A[g] * X[g];
}
TempX /= -A;
}
norm = fabs(X[0] - TempX[0]);
for (int h = 0; h < N; h++) {
if (fabs(X[h] - TempX[h]) > norm)
norm = fabs(X[h] - TempX[h]);
X[h] = TempX[h];
}
} while (norm > eps);
delete[] TempX;
}

void main()
{
float** A;
float* F;
float* X;
int N,i,j;
printf("Enter dimention of MTX: ");
cin>>N;
cout<=new float [N];
randomize();
printf("Enter MTX A:");
for(i=0; i>A[j];
if(A[j]==0) j--;}
for(i=0; i[j]);}
printf("\n");}
printf("\n");
printf("Enter vektor F:");
for(i=0; i>F;
if (F==0)
i--;}
for(i=0; i);
printf("\n");
cout<);
cout<