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

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.