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

#include <iostream>

using namespace std;

int main(int argc, char *argv[])
{
    int m, n;
    cout << "N: ";
    cin >> n;

    cout << "M: ";
    cin >> m;
    int a[10][10];

    int i,j;
    for (i=1; i<=m; ++i){
        cout<<i<<" : "<<endl;
        for (j=1; j<=n; ++j){
            cout<<j<<" : ";
            cin >> a[i][j];
        }
    }

    int m2=m,i2;
    for (i=1; i<m; ++i){
        i2=1;
        --m2;
        while (i2<=m2){
            if (a[i2][1]>a[i2+1][1])
                for (j=1;j<=n; ++j) {
                    a[i2][j]+=a[i2+1][j];
                    a[i2+1][j]=a[i2][j]-a[i2+1][j];
                    a[i2][j]=a[i2][j]-a[i2+1][j];
                }
            ++i2;
        }
    }

    for (i=1; i<=m; ++i){

        for (j=1; j<=n; ++j){
            cout<<" : "<<a[i][j];

        }
        cout<<" : "<<endl;
    }
    return 0;

}

program Matrix76;
type
  matrix = array [1..10,1..10] of integer;
 
var
  a:matrix;
  M, M2, N, i, i2, j:Integer;
 
procedure Swap(var X,Y:Integer);
begin
 if x<>y then
  begin
   X:=X+Y;
   Y:=X-Y;
   X:=X-Y;
  end;
end;
 
procedure SwapMatrixRow(var mat:matrix; X,Y:Integer);
var
 j:integer;
begin
 if x<>y then
  for j:=1 to N do
   swap(mat[x,j], mat[y,j]);
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;
 
 M2:=M;
 for i:=1 to M-1 do
  begin
   i2:=1;
   M2:=M2-1;
   while (i2<=M2) do     begin      if a[i2,1]>a[i2+1,1] then
      begin
       SwapMatrixRow(a, i2, i2+1);
      end;
     inc(i2);
    end;
   end;
 
 for  i:=1 to M do
  begin
   for j:=1 to N do
    begin
     Write(' : ',a[i,j]);
    end;
   writeln(' : ');
  end;
end.