for k := 1 to ((n-1)/2)+1 do
        par i := 1 to (n/2) do
            index := (2 * i) - 1;

        par i := 1 to (n/2) do
            index := 2 * i;