Кто можеть перевести на Java-y? [требует правки]

1,Записать на место отрицательных элементов матрицы нули, а на место положительных — единицы. Вывести на печать нижнюю треугольную матрицу в общепринятом виде. (D (10, 10))}

  Program VR;
      const n=4;
      m=4;

var
Arr:array[1..n,1..m] of integer;
a,b,c,d,i,j:integer;
Begin
for i:=1 to n do  begin //заполняем массив
for j:=1 to m do begin
Arr[i,j]:=Random(31)-20;
end;
end;
for i:=1 to n do  begin  //выводим массив, дабы было с чем сравнивать
for j:=1 to m do begin
begin
Write('a[',i,',',j,']=',Arr[i,j],' ');
end;
end;
Writeln();
end;
for i:=1 to n do  begin  //находим отрицательные и заменяем на 0, если положительные, меняем на 1
for j:=1 to m do begin
if (Arr[i,j]<0) then
Begin
Arr[i,j]:=0;
end
else
begin
Arr[i,j]:=1;
end;
end;
end;
for i:=1 to n do  begin //выводим полученный массив
for j:=1 to m do begin
begin
Write('a[',i,',',j,']=',Arr[i,j],' ');
end;
end;
Writeln();
end;
end.