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

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.