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