Сортировать нечетные числа с прямого включения в одномерном массиве. pascal abc. net четные элементы должны остаться на своем месте.

// pascalabc.net 3.2, сборка 1467 от 02.06.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   var x: =a.where(x-> x.isodd).toarray;   for var i: =1 to x.count-1 do begin       var (j,l): =(i-1,x[i]);       while (j> =0) do           if x[j]> l then begin x[j+1]: =x[j]; j-=1 end           else break;       x[j+1]: =l       end;   var j: =0;   for var i: =0 to x.length-1 do begin       while a[j].iseven do j+=1;       a[j]: =x[i]; j+=1       end;   a.println; end. пример n= 15 49 10 3 44 -25 31 -18 -9 29 43 -24 -45 -19 45 -19 -45 10 -25 44 -19 -19 -18 -9 3 29 -24 31 43 45 49