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

[Pomogite_pls]

на Паскале получается задача...в вот для си++ не получается
Minmax3. Дано целое число N и набор из N прямоугольников, заданных своими сторонами — парами чисел (a, b). Найти максимальный периметр прямоугольника из данного набора.
[I]Program MinMax2;
const
_Max = 100;
type
MyType = record//создание своего классна(типа)
a,b:real;
end;
Arr=array[1.._Max] of MyType;//массив с нашим типом.
var
TheArr:Arr;
max:real;
i:integer;
n:integer;
buf:real;
begin
repeat
write('Введите N: ');readln(N);
until N<_Max;
for i:=1 to N do
begin
write('Введите a и b: ');readln(TheArr[i].a,TheArr[i].b);
end;
max:=(TheArr[1].a*TheArr[1].b);
for i:=2 to N do
begin
buf:=(TheArr[i].a*TheArr.b);
if(max<buf)then max:=buf;
end;
writeln('Максимальная =',max);
end.

[_Bers]

http://programmersforum.ru/showthread.php?t=34061