Перевести с паскаля на С++

Program MINE;
Const max=1000;
var 
    n,n1,count,i,x1,y1,x2,y2,m,m1,m2,m0:longint;
    l1,l2,l3:real;
    a:array[1..2,1..max] of longint;
    h:array[1..max] of byte;
    r,r1:real;
begin
read(n);
for i:=1 to n do
    read(a[1,i],a[2,i]);
n1:=n;
count:=0;
fillchar(h,sizeof(h),0);
while n1>=3 do
      begin
      inc(count);
      m:=1;
      x1:=32001;  {min x}
      for i:=1 to n do
          begin
          if (a[1,i]<x1) and (h[i]=0)
             then begin
                  m:=i;
                  x1:=a[1,i];
                  end;
          end;
      m0:=m;
      x1:=0;
      y1:=1;
      repeat
        r:=-2;
        for m1:=1 to n do
            if (m1<>m) and (h[m1]=0) then
            begin
            x2:=a[1,m1]-a[1,m];
            y2:=a[2,m1]-a[2,m];
            l1:=1.0*x1*x1+1.0*y1*y1;
            l2:=1.0*x2*x2+1.0*y2*y2;
            l3:=1.0*x1*x2+1.0*y1*y2;
            r1:=l3/((sqrt(l1))*(sqrt(l2)));
            if r1>r
               then begin
                    r:=r1;
                    m2:=m1;
                    end;
            end;
        dec(n1);
        h[m2]:=1;
        x1:=a[1,m2]-a[1,m];
        y1:=a[2,m2]-a[2,m];
        m:=m2;
      until m2=m0;
      end;
writeln(n1,' ',count);
end.