const

 n=5; m=6;

var

 a:array [1..n,1..m] of integer;

 b:array of integer;

 i,j:integer;

begin

 setlength(b,0); //пустой динамический массив  

 for i:=1 to n do

   begin

     for j:=1 to m do

       begin

         a[i,j]:=random(41)-20;

         write(a[i,j]:4);

         //---------------------------

         //Если выполняется условие, то

         //расширяем массив b на ячейку, и

         //в неё записываем значение.

         if a[i,j]<0 then

           begin

             setlength(b,length(b)+1);

             b[length(b)-1]:=a[i,j];

           end;

         //--------------------------

       end;

     writeln;

   end;

  writeln;

  //-----------------------

  //Вывод результата

  for i:=0 to length(b)-1 do

   write(b[i]:4);

end.