Сортировка пузырьком не трогая нули

##
var a := arrrandom(Random(10, 33), -10, 10);
a.Print; $' [{a.Length}]'.Println;
 
 //при необходимости дополнить нулями до 15% от размера
var n := ceil(a.Length * 0.15) - a.CountOf(0);
if n > 0 then begin
  Println('>', '0 ' * n); //сколько нулей добавлять
  loop n do
  begin
    var j := 0;
    repeat j := Random(a.Length - 1) until a[j] <> 0; //поиск ненулевого
    a[j] := 0 //обнулить
  end;
  a.Println //показать модифицированный массив
end;
 
 //сортировка пузырьком с пропуском нулей
n := a.Length - 2;
var flag := false; // флаг окончания
repeat
  var i := 0; //левое значение
  flag := false;
  repeat //for i:=0 to a.Length-2 do begin
    while (a[i] = 0) and (i < n) do i += 1; //пропуск нулей
    var j := Succ(i); //правое значение
    while (a[j] = 0) and (j <= n) do j += 1; //пропуск нулей
    if a[i] > a[j] then begin //замена
      Swap(a[i], a[j]);
      {if not flag then} flag := true //была перестановка
    end; //if
    i += 1; //следующее
  until i > n;
until not flag; //пока не будет замен
a.println

k:=0;
for var i:=0 to Length(b)-1 do if a[i]<>0 then begin
  a[i]:=b[k]; Inc(k);
end;

var i:=0; foreach var x in a.Where(j->j<>0).Sorted do begin
  while a[i]=0 do i+=1;
  a[i]:=x
end;