Const
 n = 4;
 a: array[1 .. n, 1 .. n] of integer =
   ((1,2,3,4),(5,6,7,8),(9,10,11,12),(13,14,15,16));

Type
 TVector = array[1 .. n] of integer;

Procedure Sort(Var v: TVector; n: integer);
 Begin
 End;

var
 Vect: TVector;
 i, j: integer;

begin
 for j := 2 to n - 1 do
   begin
     { Выше побочной }
     for i := 1 to j do
       Vect[i] := a[j - i + 1, i];
     Sort(Vect, j);
     for i := 1 to j do
       a[j - i + 1, i] := Vect[i];

     { Ниже побочной }
     for i := 1 to j do
       Vect[i] := a[n - i + 1, n - (j - i)];
     Sort(Vect, j);
     for i := 1 to j do
       a[n - i + 1, n - (j - i)] := Vect[i];
   end;
end.