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

Var
  x: Array[1..10,1..10] of Integer;
  i,n,j,max: Integer;
BEGIN
Randomize;
Write('Введите размер массва: '); Readln(n);
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    x[i,j]:=Random(51)-25;
    Write(x[i,j]:4);
  end;
  Writeln
end;
max:=x[1,1];
For i:=1 to n-1 do
For j:=1 to n-i do
If x[i,j]>max Then max:=x[i,j];
Writeln('Максимальный элемент над побочной диагональю = ',max);
END.

Var
  x: Array[1..10,1..10] of real;
  i,n,j:Integer;
  max1,max2: Real;
BEGIN
Randomize;
Write('Введите размер массива: '); Readln(n);
For i:=1 to n do
 begin
  For j:=1 to n do
   begin
    x[i,j]:=-5+10*Random;
    Write(x[i,j]:5:2);
  end;
  Writeln
end;
max1:=x[1,1]; //над побочной
max2:=x[n,n]; //под побочной
For i:=1 to n do
For j:=1 to n do
if (j<n-i+1)and(x[i,j]>max1)then max1:=x[i,j]
else if(j>n-i+1)and(x[i,j]>max2)then max2:=x[i,j];
Writeln('Максимальный элемент над побочной диагональю = ',max1:0:2);
Writeln('Максимальный элемент под побочной диагональю = ',max2:0:2);
END.

max:=A[1,1];
For i:=1 to n-1 do
 For j:=1 to n-i do
  if A[i,j]>max then max:=A[i,j];

max:=A[n,n];
For i:=2 to n do
 For j:=n-i+2 to n do
  if A[i,j]>max then max:=A[i,j];