Дан двумерный массив a, размером (n'm). Найти минимальный

элемент в каждой строке матрицы среди отрицательных элементов.

Program gt;

var a:array[1 ... 100,1 ... 100]of integer;

n, m, i, j, min:integer;

begin

read (n, m);

for i:=1 to n do

for j:=1 to m do

read (a[i, j]);

for i:=1 to n do

begin

min:=a[i, 1];

for j:=1 to m do

begin

if (a[i, j]
end;

if (min<0) then writeln (min) else writeln ('отрицательных чисел нет в ', i,' строке');

end;

end.