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

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