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

#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);
        for(int j = 0; j < n; ++j)
            cin >> t[j];
        a.push_back(t);
    }
    for(int i = 0; i < n; ++i){
        set<int> s;
        for(int j = 0; j < m; ++j)
            s.insert(a[j][i]);
        if(s.size() == m)
            ++k;
    }
    cout << k;
    return 0;
}

program Matrix39;
var
  a:array [1..10,1..10] of integer;
  Rez, M, N, i, j:Integer;
  Column : set of byte;
 
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;
  Rez:=0;
  for  j:=1 to N do
  begin
   i:=1;
   Column:=[];
   While (not(a[i,j] in Column)) and (i<=M) do
    begin
     Column:=Column+[a[i,j]];
     inc(i);
    end;
   if i=M+1 then inc(Rez);
  end;
  Writeln(Rez);
end.