Найти максимальный из элементов матрицы, расположенных на побочной диагонали

uses crt;
const n = 5;
type massive = array[1..n,1..n] of integer;
var
   i,j,max:integer;
   mas:massive;
procedure showM;
begin
   writeln;
   for i:=1 to n do
   begin
       for j:=1 to n do
       begin
          if i+j = n+1 then textcolor(2) else textcolor(1);
          write(mas[i,j]:4);
       end;
       writeln;
   end;
   writeln;
end;
procedure createM;
begin
   for i:=1 to n do
       for j:=1 to n do
           mas[i,j]:=random(101)-50;
end;
procedure findMax;
begin
max:=mas[1,n];
   for i:=1 to n do
       for j:=1 to n do
           if i+j = n+1 then
              if mas[i,j]>max then
                 max:=mas[i,j];
end;
begin
   randomize;
   createM;
   showM;
   findMax;
   textcolor(4);
   writeln('Max element=',max);
end.

uses crt;
Type
    TKube = class
    X,Y,Z:Integer;
    Width:Word;
    Height:Word;
    Depth:Word;
    Color:byte;
Constructor
Create(mX,mY,mZ:Integer; mWidth, mHeight, mDepth:Word);
    begin
    x:=mx;y:=my;z:=mz;Width:=mWidth;Height:=mHeight;Depth:=mDepth;
    end;
public
      property readX:Integer read X;
      property readY:Integer read Y;
      property readZ:Integer read Z;
      property readWidth:Word read Width;
      property readHeight:Word read Height;
      property readDepth:Word read Depth;
      property readColor:byte read Color write Color;
      procedure print;
      begin
      writeln('x=',x,' y=',y,' z=',z,' width=',Width,' height=',Height,' depth=',Depth,' color=',Color);
      end;
End;
var
   q:tkube;
begin
     q:=TKube.create(10,10,10,10,10,10);
     q.color:=2;
     q.print;
     writeln('x= ',q.readx);
     writeln('y= ',q.ready);
     writeln('y= ',q.readz);
     q.color:=5;
     q.print;
end.