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

#include <bits/stdc++.h>

using namespace std;

int main()
{
    int m, n, k = INT_MIN, pos = 0;
    cin >> m >> n;
    vector<int> t(n);
    vector<vector<int> > a;
    for(int i = 0; i < m; ++i){
        for(int j = 0; j < n; ++j){
            cin >> t[j];
            if(k < t[j]){
                k = t[j];
                pos = j;
            }
        }
        a.push_back(t);
    }
    for(int i = 0; i < a.size(); ++i){
        a.at(i).erase(a.at(i).begin() + pos);
    }
    for(auto i: a){
        for(auto j: i)
            cout << j << " ";
        cout << endl;
    }
    return 0;
}

program Matrix64;
 
type
  matrix = array [1..10,1..10] of integer;
 
var
  a:matrix;
  MaxI,MaxJ, M, N, i, j:Integer;
 
procedure DelMatrixColumn(var mat:matrix; X:Integer);
var
 i:integer;
begin
 N:=N-1;
 for j:=X to N do
  for i:=1 to M do
   mat[i,j]:=mat[i,j+1];
end;
 
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;
  MaxI:=1;
  MaxJ:=1;
  for  j:=1 to N do
   for i:=1 to M do
     if a[i,j]>a[MaxI,MaxJ] then
      begin
       MaxI:=i;
       MaxJ:=j;
      end;
 
 DelMatrixColumn(a,MaxJ);
 
 for  i:=1 to M do
  begin
   for j:=1 to N do
    begin
     Write(' : ',a[i,j]);
    end;
   writeln(' : ');
  end;
end.