Сформировать одномерный массив х из элементов главной диагонали матрицы а . найти максимальный элемент массива и его номер.

VAR
   mx, ind: Integer;
   n, m, i, j: Integer;
   b: Array of Integer;
   a: Array of Array of Integer;
BEGIN
   Read(n); SetLength(a, n+1); 
   For i := 1 to n do SetLength(a[i], n+1);

   For i := 1 to n do
      For j := 1 to n do Read(a[i][j]);

   SetLength(b, n+1);
   For i := 1 to n do b[i] := a[i][i];

   mx := b[1]; ind := 1;
   For i := 2 to n do 
      If (mx < b[i]) then begin 
         mx := b[i]; ind := i; End;

   Write('Макс. элемент гл. диагонали - B[',ind,'] = ', mx);
END.

Или намного проще (если нужен только ответ):
VAR
   mx, ind, el: Integer;
   n, m, i, j: Integer;
BEGIN
   Read(n);

   // Присваем макс. элементу самое минимальное число,
   // которое точно не встретится в массиве
   mx := -999999999;

   For i := 1 to n do
      For j := 1 to n do begin  
         Read(el);
         If (i <> j) then Continue;
         If (mx < el) then begin 
            mx := el; ind := i; End; End;

   Write('Макс. элемент гл. диагонали - B[',ind,'] = ', mx);
END.