Найти максимальный элемент дополнительной диагонали квадратной матрицы (в паскале)

Var a:array[1 ... 8, 1 ... 8] of integer;

max, i, j:integer;

begin

randomize;

max:=0;

for i:=1 to 8 do

for j:=1 to 8 do

a[i, j]:=random (200);

for i:=1 to 8 do

for j:=1 to 8 do

if i+j=9 then

begin

if a[i, j]>max then max:=a[i, j];

end;

for i:=1 to 8 do

begin

for j:=1 to 8 do

write (a[i, j]:5);

writeln;

end;

writeln ('Максимальный элемент=', max);

end.