Найти максимальный побочный элемент матрицы B(m,n) .(m=4,n=4) — Pascal(Паскаль)

Program Maxik;
Uses Crt;
Const
  N=4;
  Range=N-1;
Var
  B:array[0..Range,0..Range] of byte;
  i,j:byte;
  max:byte;
Begin
  ClrScr;
  Randomize;
  for i:=0 to Range do
    begin
      for j:=0 to Range do
        begin
          B[i,j]:=random(100);
          write(B[i,j]:3)
        end;
      writeln
    end;
  max:=B[0,Range];
  for i:=0 to Range do
    begin
      j:=Range-i;
      if B[i,j]>max then max:=B[i,j]
    end;
  writeln;
  writeln('Maximum = ', max:3);
  writeln;
  writeln('Press any key...');
  repeat
  until KeyPressed
End.