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

Program abc4;
 
  Var
     X:array[1..15, 1..15] of  real;
     A:array[1..15, 1..15] of  real;
     I,j,N:byte;
     Max:real;
  Begin
                   {1-2}
    Write('N=');
     Readln(N);
     For i:=1 to N do
       For j:=1 to N do
         Begin
           Write('X[',I,',',j,']=');
            Readln(X[I,J]);
         End;
                   {2-3}
     Max:=X[1,N];
     For i:=2 to N do
       If X[I,N+1-j]>max then
          Max:=X[I,j];
                   {3-4}
     For i:=1 to N do
       If (I mod 2=0) then
         Begin
            For j:=1 to N do
              If  X[I,j]>0 then
                 X[I,j]:=X[I,j]/max;
       End;
                     {4-5}
       For i:=1 to N do
         Begin
           For j:=1 to N do
              Write('',x[I,J]);
              Writeln;
        End;
  End.

program abc4;
uses crt;
const nmax=15;
var  x:array[1..15, 1..15] of  real;
     n,i,j:byte;
     max:real;
begin
randomize;
repeat
write('n<=15 n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    x[i,j]:=10*random-4;
    write(x[i,j]:6:2);
   end;
  writeln;
 end;
writeln;
max:=x[1,n];
for i:=1 to n do
if x[i,n-i+1]>max then max:=x[i,n-i+1];
writeln('Максимальный элемент побочной диагонали=',max:0:2);
writeln('Полученная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(x[i,j]>0)and(j mod 2=0) then x[i,j]:=x[i,j]/max;
    write(x[I,J]:6:2);
   end;
  writeln;
 end;
end.