Дана действительная квадратная матрица порядка 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.


Не могу понять почему максимум становится всегда последний элемент матрицы хотя в матрице ( в выделеной области) есть значения больше . Помогите найти ошибку или если ошибок оченьь много напишите готовый код к заданию. Заранее спасибо