Перевести с паскаль на c++

uses crt;
{$I-}
CONST
t=100;
var sum,sum1,arifm1,arifm2:real; m,n,i,j,k,f:integer;f1,f2,f3:file of integer;
    a,b:array [1 .. t] of integer;
    way,way1:string;
begin
clrscr;
repeat
  write(' Введите путь к файлу c первым массивом: ');
  readln(way);
  assign(f1,way);
  reset(f1);
  if IOresult<>0 then writeln('Файл не найден, повторите ввод');
    assign(f1,way);
    reset(f1);
  until IOresult=0;
  while not eof do
  begin
  read(a[i]);
 k:=0;
 sum:=0;
 if ((i mod 2)=0) and (a[i]>0) then
 begin
  k:=k+1;
  sum:=sum+a[i];
 end;
 if k<>0 then
 arifm1:=sum/k
 else
 writeln(' В массиве нет подходящих элементов');
 close(f1);
 end;
repeat
  write(' Введите путь к файлу со вторым массивом: ');
  readln(way1);
  assign(f2,way1);
  reset(f2);
  if IOresult<>0 then writeln('Файл не найден, повторите ввод');
    assign(f2,way1);
    reset(f2);
  until IOresult=0;
  f:=0;
 sum1:=0;
 while not eof do
 begin
 if ((j mod 2)<>0) and (b[j]<0) then
  begin
  f:=f+1;
  sum1:=sum1+b[j];
  end;
 if f<>0 then
 arifm2:=sum1/f
 else
 writeln(' В массиве нет подходящих элементов');
 end;
 writeln('Результат работы программы выведен в файл result.txt');
  assign(f3,'result.txt');
  rewrite(f1);
  writeln(arifm1);
  writeln(arifm2);
readln;
 
end.