Перевод готовой программы с Pascal на С++

uses crt,dos;
const n=10;
type
   fil=file of integer;
var
   f,g,h,h1:fil;
   x,y,i,j:integer;
 
procedure sozd;
begin
      assign(f,'c:\temp\461\f.txt');
      assign(h,'c:\temp\461\h.txt');
      assign(g,'c:\temp\461\g.txt');
      rewrite(f);rewrite(h);rewrite(g);
      for i:=1 to n do
begin
    x:=random(n);
    y:=random(n);
    write(f,x);
    write(h,x);
    write(g,y);
    write(h,y);
end;
      close(f);close(g);close(h);
end;
 
procedure printf(var f:fil);
var
   x:integer;
 
begin
   reset(f);
   while not eof(f) do
      begin
read(f,x);
write(x:4);
      end;
   close(f);
   readln;
end;
 
procedure obf(var f:fil);
var
  x,y:integer;
begin
  reset(f);
  for i:=n-1 downto 1 do
   for j:=1 to i do
      begin
seek(f,j-1);read(f,x);seek(f,j);read(f,y);
if x<y then
    begin
       seek(f,j-1);write(f,y);
       seek(f,j);write(f,x);
    end;
      end;
  close(f);
end;
 
procedure ob(var h:fil);
var
  x,y:integer;
begin
  reset(h);
  for i:=2*n-1 downto 1 do
    for j:=1 to i do
      begin
seek(h,j-1);read(h,x);seek(h,j);read(h,y);
if x<y then
    begin
       seek(h,j-1);write(h,y);
       seek(h,j);write(h,x);
    end;
      end;
  close(h);
end;
 
begin clrscr;
      randomize;
      assign(f,'a.txt');
      assign(g,'a1.txt');
      assign(h,'a2.txt');
      assign(h1,'a3.txt');
      sozd;
      obf(f);
      writeln('файл f:');
      printf(f);
      obf(g);
      writeln('файл g:');
      printf(g);
      reset(h);reset(f);reset(g); 
   while not eof(f) do
      begin
read(f,x);
write(h,x);
      end;
   while not eof(g) do
      begin
read(g,x);
write(h,x);
      end;
   close(f);close(g);close(h);
   ob(h);
   assign(h1,'c:\temp\461\h1.txt');
   rewrite(h1);reset(h);
   read(h,y);
   while not eof(h) do
      begin
read(h,x);
if x<>y then
    begin
       write(h1,x);
       y:=x;
    end;
      end;
   close(h);close(h1);
   writeln('файл h:');
   printf(h1);  
   ob(h);printf(h);
end.