надо перевести из С++ в Paascal ABC

[Aidar9119]

привет! надо код из С++,в Pascal ABC перевести. Задание выглядит так :Заполнить файл f натуральными числами, полученными с помощью генератора случайных чисел. Найти количество квадратов нечетных чисел среди компонентов.
Вот код на С++:
#include<iostream>
#include<cstdlib>
#include <time.h>
#include<fstream>
#include<cmath>

using namespace std;

int main(){
srand(time(0));
int i,k,n,j=0;
n = rand()%20;
int mass[n];
cout<<"massiv:\n";
for( i =0;i<n;i++){
mass[i]= rand()%100;
cout<<mass[i]<<" ";
}
cout<<"\n dannie zapisani v ==>fin.txt"<<endl;;
FILE *fp1 = fopen("fin.txt","w");
if(!fp1)
{
cout << "Nevozmozhno otkryt' fail"<< endl;
}
for( i =0;i<n;i++){
k=sqrt(mass[i]);
if(mass[i]==k*k&&k%2!=0){
j++;
}
}
for(i=0;i<n;i++){
fprintf ( fp1, "%d", mass[i]);
fprintf ( fp1, " ");
}
fprintf ( fp1, "\n");
fprintf(fp1,"Kol-vo kvadratov nechetnix chisel: ");
fprintf ( fp1,"%d", j);
fclose(fp1);
system("PAUSE>>null");
return 0;
}
заранее огромное спасибо!!!!