из С++ в Паскаль АВС

[Aidar9119]

нужно этот код из С++(есть 3 ошибки,их надо исправить) в Паскаль АВС перевести:
#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;
}
вот само задание:Заполнить файл f натуральными числами, полученными с помощью генератора случайных чисел. Найти количество квадратов нечетных чисел среди компонентов
ЗАРАНЕЕ БолЬшоЕ СпАсИбО!!

[unbanned]

не легче заново написать?

const
  n = 20; //это типо кол-во чисел которые в файл пишуться
  c = 100;//это рандом чисел (т.е. от 0 до 99)

var
  m: array[1..n] of integer;
  i, j, k, l: integer;
  f: text; //можно описать как файл интеджеров, но чет он у меня блокнотом не открылся, сделал текстовый
  s: string;

begin
  i := 1;
  j := 1;
  k := 0;
  l := 0;
  while j <= round(n / 2) do 
  begin
    m[j] := sqr(i);
    i := i + 2;
    j := j + 1;
  end;
  assign(f, 'output.txt');
  rewrite(f);
  for j := 1 to n do
  begin
    l := random(c);
    str(l, s);//если берешь не текстовый файл, а integer, то это лишнее(в т.ч. переменная s, просто сразу l в файл записываешь)
    writeln(f, s);
    for i := 1 to round(n / 2) do
      if m[i] = l then k := k + 1;
  end;
writeln(f,'количество квадратов нечетных чисел:',k);
  close(f);
end.

вродь работает... не переводил с С а написал заново, но идею взял оттуда