Решение задачи Matrix 33

#include <bits/stdc++.h>

using namespace std;

int main()
{
    int n, m,  p, neg;
    cin >> n >> m;
    int a[m][n];
    for(int i = 0; i < m; ++i){
        for(int j = 0; j < n; ++j)
            cin >> a[i][j];
    }
    for(int i = n - 1; i >= 0; ++i){
        p = 0, neg = 0;
        for(int j = 0; j < m; ++j){
            if(a[j][i] > 0)
                ++p;
            if(a[j][i] < 0)
                ++neg;
        }
        if(p == neg){
            cout << i + 1;
            return 0;
        }
    }
    cout << 0;

    return 0;
}

program Matrix33;
var
  a:array [1..10,1..10] of integer;
  column, Num, M, N, i, j, RezN,RezM:Integer;
 
begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);
 
 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;
 
 column:=0;
 for  j:=1 to N do
  begin
   Num:=0;
   for i:=1 to M do
    if a[i,j]<>0 then Num:=Num+(a[i,j] div abs(a[i,j]));
 
   if Num=0 then column:=j;
  end;
  Writeln(column);
end.