Дана двумерная матрица 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]<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.