В числовом двумерном массиве размерности n*m найти наибольший среди отрицательных элементов — Pascal(Паскаль)

const
 n=10;
 m=10;
var
 a:array[1..n,1..m]of integer;
 i,j,r:integer;
begin
 r:=1;
 randomize;
 for i:=1 to n do begin
  for j:=1 to  m do begin
   a[i,j]:=random(100)-50;
   if (a[i,j]<0) and ((r=1) or (a[i,j]>r)) then r:=a[i,j];
   write(a[i,j]:5);
  end;
  writeln;
 end;
 writeln(r);
 readln;
end.