надо до зафтра сделать,из С++ в Pascal ABC

[Aidar9119]

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

using namespace std;

int main(){
srand(time(0));
int i,k,j=0;
const int n = 10;
int mass[10];
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;
}
Заранее спасибо!