В матрице Y(6,4) найти наименьший среди отрицательных элементов- Pascal(Паскаль)

uses crt;
const
  str=4;
  sto=4;
var
  a:array [1..str,1..sto] of integer;
  nm:array [1..str] of integer;
  i,j,min:integer;
begin
  clrscr;

  writeln('Формирование матрицы:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j],' ')
    end;
    writeln
  end;
 
  for i:=1 to str do
  begin
    min:=a[i,1];
    for j:=1 to sto do
      if a[i,j]<min then
        min:=a[i,j];
    nm[i]:=min;
  end;
  min:=nm[1];
  for i:=2 to sto do
    if nm[i]>min then
      min:=nm[i];
  writeln('Наименьший : ',min)
end.