Дана целочисленная квадратная матрица

[nero4ka]

Дана целочисленная квадратная матрица. Определить:
произведение элементов в тех строках, которые не содержат отрицательных элементов. где ошибка?он умнажает все положительные,которые есть,а не которые в строках.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i,j, row,col;
float s;
int mas[50][50];
s=1;
row = StringGrid1->RowCount;
col = StringGrid1->ColCount;
for (i=0; i<row;i++)
for(j=0;j<col;j++)
{mas[j][i] = StrToInt(StringGrid1->Cells[i][j]);}
for (i=0; i<row; i++)
for (j=0; j<col;j++)
{if ( mas[j][i] > 0)
s=s*mas[j][i];
else
break; }

if ( mas[j][i] < 0)
ShowMessage("нет столбцов со всеми положительными элементами");
else ShowMessage(FloatToStr(s));
}