В матрице Y(6,4) найти наибольший среди отрицательных элементов- Pascal(Паскаль)

Program maxim;
Uses crt;
 const n=6;
       m=4;
 var y:array [1..n,1..m] of integer;
     a:array [1..n,1..m] of integer;
     i,j,max:integer;
begin
clrscr;
  for i:=1 to n do
    for j:=1 to m do begin
                     write ('y[',i,',',j,']=');
                     Readln (y[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to m do
    Write ('  ',y[i,j],' ');
    writeln;
 end;
writeln;
Writeln (' Vse otricatelnye chisla ');
 for i:=1 to n do
     for j:=1 to m do
      if y[i,j]<0 then write (y[i,j]:3);
writeln;
max:=y[1,1];
for i:=1 to n do
  for j:=1 to m do begin
                   if y[i,j]<0 then
                   if y[i,j]>max then max:=y[i,j];
                   end;
writeln (' Maximalnyi element  ',max);
Readln
end.