Квадратный массив

[kitsun]

Что требуется: Дан квадратный массив. Найти максимум среди элементов побочной диагонали, указав номера строки и столбца, на пересечении которых он находится.
Сделал квадратный массив, указал в условии побочную диагональ, а как указать номера строки и столбца, на пересечении которых находится незнаю, прошу помочь. Наработки:

program Project1;

{$APPTYPE CONSOLE}

uses
  ucrt;

var
   a:array[1..10,1..10]of integer;
   i,j:integer;
begin
   randomize;
   for i:=1 to 10 do
   for j:=1 to 10 do
    a[i,j]:=random(10);
   for i:=1 to 10 do
    begin
       for j:=1 to 10 do
        write(a[i,j]:4,'  ');
       writeln;
    end;
   for i:=1 to 10 do
   for j:=1 to 10 do
    if i<>j then
----------------
 ----------------
  ----------------
   writeln;
  for i:=1 to 10 do
    begin
       for j:=1 to 10 do
        write(a[i,j]:4,'  ');
       writeln;
    end;
   readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[BDA]

program Project1;

{$APPTYPE CONSOLE}

const
  N = 10;
  
var
  a: array[1..N, 1..N] of integer;
  i, j: integer;
begin
  randomize;
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      a[i,j] := random(N);
      write(a[i, j]:4, ' ');
    end;
    writeln;
  end;
  j := 1;
  for i := 2 to N do
    if a[i, N - i + 1] > a[j, N - j + 1] then
      j := i;
  writeln('Max = ', a[j, N - j + 1], ' (', j, ', ', N - j + 1, ')');
  readln;
end.