Сортировка ненулевых элементов. Опции

[Dexoid]

Такая вот задачка вроде простенькая а что то не выходит совсем. Нужно отсортировать ненулевые элементы в массиве по убыванию. То есть если у нас есть массив: 5 4 4 6 2 4 1 2 0 0 0 2 3 6 1 , то программа должна отсортировать отдельно элементы стоящие до нулей и после, оставив нули на своём месте. (6 5 4 4 4 2 1 0 0 0 6 3 2 1 ) , вся проблема для меня найтиномера этих нулевых элементов, чтоб начать сортировку следующей части массива с нужного символа. Может быть можно ещё как нибудь сделать? Прошу помощи.

[Dexoid]

Код

Const
  n = 8;

Type
  TType = Integer;
  arrType = Array[1 .. n] Of TType;

Const
  a: arrType =
       (57, 55, 0, 0, 94, 18, 6, 67);
var i:integer;

Procedure Insert(Var source, sorted: arrType);
  Var
    i, j,l: Integer;
    x: TType;
    label bash;
  Begin
    move(source, sorted, SizeOf(arrType));
l:=1;
bash:    For i := l To n do
      Begin
        x := sorted[i];
        j := Pred(i);
        if x=0 then begin l:=l+1;goto bash;end;
        While x < sorted[j] Do
          Begin
            sorted[Succ(j)] := sorted[j]; Dec(j);
          End;
        sorted[Succ(j)] := x;
      End;
      for i:=1 to n do writeln(sorted[i]);
  End;

Var
  b: arrType;

Begin
  Insert(a, b);
End.

На большее меня не хватает)) а искуственные выходы из циклов не люблю. А по другому не знаю как. Так то вроде работает.