Дана двумерная матрица n на m.найти максимально отрицательное и расположить его

Const m=5; n=4;
Var a:array[1..m,1..n] of integer; i,j,max:integer;
Begin
 randomize;
 for i:=1 to m do
   for j:=1 to n do a[i,j]:=random(201)-100;
 max:=0;
 for i:=1 to m do
   for j:=1 to n do
     if a[i,j]lt;max then max:=a[i,j];
 if max=0 then writeln('В матрице нет отрицательных частей.')
  else a[(m div 2)+1,(n div 2)+1]:=max;
 for i:=1 to m do        //Вывод матрицы. Необязательно.
   begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
   end;
End.