Дана квадратная матрица порядка n. В строках с отрицательным элементом на главной диагонали найти наибольший из всех элементов — Pascal(Паскаль)

Program N_388;
uses crt;
const n=17;
var i,j,max: integer;
    A:array[1..n, 1..n] of integer;
    B:array[1..n] of integer;
begin
clrscr; Randomize;
for i:=1 to n do begin
for j:=1 to n do begin
A[i,j]:=random(20)-5; write(A[i,j]:3, ' '); end; writeln; end;
 
     for i:=1 to n do begin
      for j:=1 to n do
       if A[i,j]<0 then B[i]:=A[i,i]; end;
           max:=B[i];
        for i:=1 to n do
          if B[i]>max then max:=B[i];
          writeln('max=', max);
 
readln; end.