program Hello;

var
   a: array [1..10] of array[1..10] of integer;
   n, i, j, min, t, k : integer;

begin
    // ввод размерности матрицы
    read(n);
    // ввод самой матрицы
    for i := 1 to n do
        for j := 1 to n do
            read(a[i][j]);   (* set element at location i to i + 100 *)
   for k := 1 to n do begin
    // сортируется верхняя половина
       for i := 1 to n - 1 do begin
            min := i;
            for j := i + 1 to k do
                if a[min][k-min+1] > a[j][k-j+1] then
                    min := j;
            if min<>i then begin
                t := a[i][k-i+1];
                a[i][k-i+1] := a[min][k-min+1];
                a[min][k-min+1] := t;
            end;
        end;
       // здесь сортируется нижняя половина
       for i := 1 to n - 1 do begin
            min := i;
            for j := i + 1 to k do
                if a[n + 1 - min][n + 1 - (k-min+1)] < a[n + 1 - j][n + 1 - (k-j+1)] then
                    min := j;
            if min<>i then begin
                t := a[n + 1 - i][n + 1 - (k-i+1)];
                a[n + 1 - i][n + 1 - (k-i+1)] := a[n + 1 - min][n + 1 - (k-min+1)];
                a[n + 1 - min][n + 1 - (k-min+1)] := t;
            end;
        end;
    end;

    // вывод матрицы
    for i:= 1 to n do begin
        for j := 1 to n do
        begin
            write(a[i][j] : 5);
        end;
        writeln();
    end;
end.