Program MatranXoanoc;
Uses Crt;
Var A : Array[1..100,1..100] of Integer;
    B: Array[1..10000] Of Integer;
    I,J,Z,N,T,K,CD,CC,DD,DC : Integer;
(*====== Tao Mang =====*)
Procedure Taomang;
Begin
  Randomize;
  Write(' + Nhap N : '); Readln(N);
  z:=0;
  For i:=1 to N do
    For j:=1 to N do
        Begin
              WRITE('PHAN TU THU A[',I,',',J,']:');READLN(A[I,J]);
              Inc(Z);
              B[Z]:=A[i,j];
        End;

  For i:=1 to Z do
    For j:=i to Z do
        If B[i]>B[j] Then
          Begin
                T:=B[i];
                B[i]:=B[j];
                B[j]:=T;
          End;
End;
(*===== Xuat mang ======*)
Procedure Xuat;
Begin
 For i:=1 to N do
 Begin
  For j:=1 to N do
  Write(A[i,j]:5);
  Writeln;
 End;
End;
(*====== Sap xep Xoan Oc ======*)
Procedure Sapxep;
Begin

  CD:=1; DD:=1; CC:=N; DC:=N;
  j:=0;
    Repeat
      For i:=CD to CC do
          Begin
          Inc(j);
          A[DD,i]:=B[j];
          End;
      For i:=DD+1 to DC do
          Begin
                Inc(j);
                A[i,CC]:=B[j];
          End;
      For i:=CC-1 downto CD do
          Begin
              Inc(j);
              A[DC,i]:=B[j];
          End;
      For i:=DC-1 downto DD+1 do
          Begin
              Inc(j);
              A[i,CD]:=B[j];
          End;
                Inc(CD); Inc(DD);
      Dec(CC); Dec(DC);
    Until j>=z;



End;


(*===== Chuong Trinh Chinh =====*)
Begin
  Clrscr;
  Writeln(' CHUONG TRINH SAP XEP MA TRAN XOAN OC');
  Writeln(' Mang duoc tao : ');
  Taomang;
  Xuat;
  WRITELN('MANG XOAN OC:');
  Sapxep;
  Xuat;
  Readln;
End.