перевод с Pascal на C++

Const
 
Max=1000;
 
Eps=0.00001; 
 
Type
Para=record
 
X: integer;
 
Y: integer;
 
end; 
 
ArrPara=array [1..Max] of Para; // 
 
Var
 
M,N,i,j,k,T,R: integer; 
A,H1: ArrPara; 
{A-начальные координаты точек, H1-углов многоугольников}
P,S: real; {периметр и площадь}
Fin,Fout: text; {входной и выходной файлы}
F: boolean;
 
Procedure Oboloch(Var H:ArrPara; R:integer; var T:integer);
{R-количество исходных точек, T-точек оболочки}
 
Var
 
ii,jj,i,j: integer;
 
S,C,Z,E: real;
 
V1,V2,V3,V4: real;
 
D1,D2,D3,D4: integer;
Begin
S:=A[1].Y;
j:=1; {номер самой левой из нижних точек}
For i:=1 to R do
 
if (A[i].Y<S) or ((A[i].Y=S) and (A[i].X<A[j].X)) then
 
begin
 
j:=i;
 
S:=A[i].Y
end;
D1:=-1; D2:=0;
H[1].X:=A[j].X; {первая вершина оболочки}
H[1].Y:=A[j].Y; T:=1;
 
jj:=j;
 
S:=-2;
{для поиска минимального угла (максимального косинуса) между
вектором (D1, D2) и вектором (A[i].X)-A[j].X, A[i].Y-A[j].Y) }
E:=-1;
{для поиска наиболее удаленной точки среди всех с
минимальным углом}
 
Repeat
For i:=1 to R do
 
begin
 
D3:=A[i].X-A[j].X;
 
D4:=A[i].Y-A[j].Y;
 
V1:=D1; V2:=D2; V3:=D3; V4:=D4;
 
Z:=Sqrt(V3*V3+V4*V4);
if (i=j) or ((D3=0) and (D4=0)) then {пропускаем точку}
 
else
 
begin
C:=(V1*V3+V2*V4)/(Sqrt(V1*V1+V2*V2)*Sqrt(V3*V3+V4*V4));
 
if (C>S) or ((Abs(C-S)<Eps) and (Z>E)) then
 
begin
 
ii:=i;
 
S:=C;
 
E:=Z;
 
end;
 
end;
 
end;
 
if ii<>jj then
 
begin
D1:=A[ii].X-A[j].X; {вектор стороны оболочки}
D2:=A[ii].Y-A[j].Y;
 
T:=T+1;
H[T].X:=A[ii].X; {следующая вершина оболочки}
H[T].Y:=A[ii].Y;
 
S:=-2; E:=-1;
 
end;
j:=ii;
Until j=jj; {пока не придем в начальную точку}
 
End;
Function Perim(Var H:ArrPara; L:integer): real;
{периметр многоугольника, L-число вершин}
 
Var
 
P: real;
 
i: integer;
 
V1,V2: real;
 
Begin
 
P:=0;
 
H[L+1]:=H[1];
 
For i:=1 to L do
 
begin
 
V1:=H[i+1].X-H[i].X;
 
V2:=H[i+1].Y-H[i].Y;
P:=P+Sqrt(V1*V1+V2*V2);
 
end;
 
Perim:=P;
 
End;
 
Function Squ(Var H:ArrPara; L:integer): real;
{площадь многоугольника, L-число вершин}
 
Var
 
S: real;
 
i: integer;
 
V1,V2,V3,V4: real;
 
Begin
 
S:=0;
 
H[L+1]:=H[1];
 
For i:=1 to L do
 
begin
V1:=H[i+1].Y+H[i].Y;
 
V2:=H[i+1].X-H[i].X;
 
S:=S+V1*V2/2;
 
end;
 
Squ:=Abs(S);
 
End;
 
Begin
 
Assign(Fin,'input.txt');
 
Reset(Fin);
ReadLn(Fin,N); {количество точек}
 
For i:=1 to N do
ReadLn(Fin,A[i].X,A[i].Y); {координаты точек}
 
Close(Fin);
Oboloch(H1,N,T);
P:=Perim(H1,T); {периметр}
S:=Squ(H1,T); {площадь}
 
Assign(Fout,'output.txt');
 
Rewrite(Fout);
 
WriteLn(Fout,P:10:1);
 
WriteLn(Fout,S:10:1);
Close(Fout);
End.