Переведите с Паскаль на Java

program N_27;
const d = 8;
var
N: integer;
a: array[0..d-1] of integer; {буфер}
{k-е вве­ден­ное число за­пи­сы­ва­ем в ячей­ку a[k mod d]}
x: integer;
mx: integer; {мак­си­маль­ное вве­ден­ное число}
{(не счи­тая 8 по­след­них) }
m: longint; { мак­си­маль­ное зна­че­ние про­из­ве­де­ния}
i: integer;
begin
readln(N);
{Ввод пер­вых d чисел}
for i:=1 to d do
begin
readln(x);
a[i mod d] := x
end;
{ Ввод осталь­ных эле­мен­тов, поиск мак­си­маль­но­го
про­из­ве­де­ния}
mx := 0; m := 0;
for i := d + 1 to N do
begin
readln(x);
if a[i mod d] > mx then mx := a[i mod d];
if x * mx > m then m := x * mx;
a[i mod d] := x
end;
writeln(m)
end.