Здравствуйте. Помогите пожалуйста исправить код C++

[MaKs676]

задание: дан целочисленный массив А[n][m]. сформировать одномерный массив B[m] из произведений положительных элементов соответствующих столбцов массива А. Обязательно с динамическим выделением памяти.
вот код:

#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
	setlocale(0, "");
	int **A, *B;
	int str, stl;
	int flag;
	int p;
	int M = 0;

	cout << "введите количество строк\n";
	cin >> str;
	cout << "введите количество столбцов\n";
	cin >> stl;

	A = new int*[str];//Выделяем память динамически для массива A
	for (int i = 0; i < str; i++)
	{
		for (int j = 0; j < stl; j++)//Выделяем память динамически для массива A
			A[i] = new int[stl];
	}

	cout << "Введите элементы массива\n";
	for (int i = 0; i < str; i++)
	for (int j = 0; j < stl; j++)
		cin >> A[i][j];
	
	cout << "Массив А: \n";
	for (int i = 0; i < str; i++)//Выводим массив A  
	{
		for (int j = 0; j < stl; j++)
			cout << A[i][j] << "	";//Выводим массив A 
		cout << "\n";
	}
	B = new int[stl]; //Выделяем память динамически для массива B
	
	//Цикл составления массива B из положительных элементов столбцов матрицы А
	for (int j = 0; j<stl; j++)
	{
		p = 1;
		for (int i = 0; i<str; i++)
		{
			if (A[i][j]>0)
			{
				p = p * A[i][j];
					
			}
			else 
			{
				M++;
				if (M%2 == 0) p = 0;
			}
		}
		 B[j] = p;
	}
	//вывод массива В
	cout << "Массив B:\n";
	for (int j = 0; j < stl; j++)
		cout << B[j] << "	";
	cout << "\n";
	system("pause");
	return 0;
}

но он работает не всегда правильно надо вот здесь:

for (int j = 0; j<stl; j++)
	{
		p = 1;
		for (int i = 0; i<str; i++)
		{
			if (A[i][j]>0)
			{
				p = p * A[i][j];
					
			}
			else 
			{
				M++;
				if (M%2 == 0) p = 0;
			}
		}
		 B[j] = p;
	}

что-то помять или добавить, я не знаю что(

[Bugrimov]

Как работает код, что не работает, что выдает в результате? Самое главное при работе с динамической памятью на Си/С++ - это ее освобождение после использования. Функции free / delete И не надо ничего "мять"