program wypelnianie_po_spirali;
const n = 5; m = 12;
var
a:array[1..n,1..m] of integer;
gora,dol,lewa,prawa,k,i,j:integer;
kierunek:integer;
begin
    prawa := n;
    lewa := 1;
    dol := m;
    gora := 1;
    kierunek := 1;

    i := lewa;
    j := gora;

    for k := 1 to m*n do
        begin
            case kierunek of
            -1: if i = lewa then
                begin
                    a[i][j]:= k;
                    kierunek := 2;
                    lewa := lewa + 1;
                    j := j - 1;

                end

                else

                begin
                a[i][j] := k;
                dec(i);
                end;
            1: if i = prawa then
                begin
                    a[i][j]:= k;
                    kierunek := -2;
                    prawa := prawa - 1;
                    gora := gora + 1;
                    j := j + 1;
                end

                else

                begin
                a[i][j] := k;
                inc(i);
                end;
            -2: if j = dol then
                begin
                    a[i][j]:= k;
                    kierunek := -1;
                    dol := dol - 1;
                    i := i - 1;
                end

                else

                begin
                a[i][j] := k;
                inc(j);
                end;
            2: if j = gora then
                begin
                    a[i][j]:= k;
                    kierunek :=  1;
                    i := i + 1;
                end

                else

                begin
                a[i][j] := k;
                dec(j);
                end;


        end;
        end;
    for j:=1 to m do
        begin
        for i:=1 to n do
            write(a[i][j], ' ');
        writeln;
        end;

end.