var
  arr: array [,] of integer;
  darr: array of integer;

begin
  var n := ReadLnInteger('Введите кол-во строк:');
  var m := ReadLnInteger('Введите кол-во столбцов:');

  SetLength(arr, n, m);
  WriteLn('Матрица А:');
  for var i := 0 to arr.GetLength(0) - 1 do
  begin
    for var j := 0 to arr.GetLongLength(1) - 1 do
    begin
      arr[i, j] := Random(51) - 25;
      Write(arr[i, j]:4);
    end;
    WriteLn;
  end;

  SetLength(darr, m);
  WriteLn('Массив А:');
  for var j := 0 to arr.GetLength(1) - 1 do
  begin
    darr[j] := 0;
    for var i := 0 to arr.GetLength(0) - 1 do
    begin
      if arr[i, j] < 0 then
      begin
        darr[j] := i + 1;
        break;
      end;
    end;
    Write(darr[j]:4);
  end;
end.