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

#include <bits/stdc++.h>

using namespace std;

int main()
{
    int m, n, k = 0;
    cin >> m >> n;
    vector<vector<int> > a;
    for(int i = 0; i < m; ++i){
        vector<int> t(n);
        bool b = true;
        cin >> t[0];
        for(int j = 1; j < n; ++j){
            cin >> t[j];
            if(t[j] <= t[j - 1])
                b = false;
        }
        if(b){
            ++k;
        }
    }
    cout << k;
    return 0;
}

program Matrix42;
var
  a:array [1..10,1..10] of integer;
  Num, M, N, i, j: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;
 
 Num:=0;
 for  i:=1 to M do
  begin
   J:=2;
   While ((a[i,j-1]<a[i,j]) and (j<=N)) do inc(j);
   if J=N+1 then inc(Num);
  end;
 writeln(Num);
end.