Нужно превести задачу с Delphi на С++ - C++ - Ответ 2359482

#include "stdafx.h"
const n=10;
type
Segments=record
int a,b
ArrayOfSegments:array[1..n] of Segments;
i,j,count,Point,MaxPos:Byte;
{
For i:=1 to n do
{
                ArrayOfSegments[i].a:=random(n);
                ArrayOfSegments[i].b :=random(n+1+ArrayOfSegments[i].a)+ArrayOfSegments[i].a;
}
For i:=1 to n do
{
                For j:=1 to n do
				{
                               if i In [ArrayOfSegments[j].a,ArrayOfSegments[j].b] then
                               inc(count);
}
if MaxPos<count {                                  
                                    MaxPos:=count;
                                    Point:=i;
}
                count:=0;
                }
printf(#13,'Òî÷êà ',Point);
End.