Матрица определить отрец. эл.

program kkk;
uses crt;
var i,j,min:integer;
     m:array[1..5,1..5]of integer;
 
begin
 clrscr;
 for i:=1 to 5 do
 for j:=1 to 5 do
 begin
  write('M[',i,' ',j,']: ');
  readln(m[i,j]);
 end;
 
 for j:=1 to 5 do
 begin
  min:=2; 
  for i:=1 to 5 do
  if m[i,j]>0 then min:=1 else if (m[i,j]<min) then min:=m[i,j];
  if min=1 then writeln('В столбце ',j,' есть положительные элементы')
  else writeln('В столбце ',j,' минимум равен ',min);
 end;
 readln;
end.

const
 n = 5;
 A: array[1..n,1..n] of integer = ((1,2,-3,4,-5),
                                   (-3,4,-5,6,-1),
                                   (4,3,-4,-5,-6),
                                   (4,5,-2,3,-9),
                                   (5,2,-8,4,-2));
var
 b: boolean;
 m, i, j: integer;
Begin
 m:=1;
 For i:=1 to n do
  Begin
   b:=true;
   For j:=1 to n do
    if A[j,i]>0 then b:=not b;
   if b then
    For j:=1 to n do
     if A[j,i]<m then m:=A[j,i];
  End;
 writeln(m);
End.