Question

Дана действительная квадратная матрица порядка n Найти наибольше из значений элементом расположеных в заштрихованой части матрицы. var i,j,n:integer; c:array[1..100,1..100] of integer; max:=c[1,1]; begin readln(n); For i:=1 to n do for j:=1 to n do c[i,j]:=random(99)+1; for i:=1 to n do begin for j:=1 to n do write(c[i,j]:5); writeln; end; if (i>=j) and ((i+j)<=(n+1)) or (i<=j) and ((i+j)>=n+1) then begin if max writeln(max); end; end. Не могу понять почему максимум становится всегда последний элемент матрицы хотя в матрице ( в выделеной области) есть значения больше . Помогите найти ошибку или если ошибок оченьь много напишите готовый код к заданию. Заранее спасибо