Сортировка массива до второго нулевого элемента

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k,i2:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i],' ');
 end;
writeln;
writeln;
i2:=0;k:=0;
for i:=1 to n do
 begin
  if a[i]=0 then k:=k+1;{считаем ноли}
  if k=2 then{если их 2}
   begin
    i2:=i;{запоминаем номер}
    break;{дальше не ищем, выход из цикла}
   end;
 end;
if i2>0 then{если есть второй ноль}
 begin
  writeln('Индекс второго нулевого элемента=',i2);
  for i:=1 to i2-2 do{сортируем простым обменом до него}
  for j:=i+1 to i2-1 do
  if a[i]>a[j] then
   begin
    x:=a[i];
    a[i]:=a[j];
    a[j]:=x;
   end;
  end
else{если нет}
 begin
  writeln('Второго нулевого элемента нет!');
  for i:=1 to n-1 do{сортируем весь массив}
  if a[i]>a[j] then
   begin
    x:=a[i];
    a[i]:=a[j];
    a[j]:=x;
   end;
  end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(a[i],' ');
readln
end.

uses
  Crt;
const
  N = 10;
var
  a: array [1..N] of integer;
  i,j,pZero,c: integer;
begin
  ClrScr;
  Randomize;
  pZero := 0;
  c := 0;
  WriteLn('Array:');
  for i := 1 to N do
  begin
    a[i] := Random(8) - 4;
    if (a[i] = 0) and (c < 2) then
    begin
      pZero := i - 1;
      Inc(c);
    end;
    Write(a[i], ' ');
  end;
  if c < 2 then
    pZero := N;
  for i := 1 to pZero - 1 do
    for j := 1 to pZero do
      if a[i] < a[j] then
      begin
        c := a[i];
        a[i] := a[j];
        a[j] := c;
      end;
  WriteLn(#10, 'Result:');
  for i := 1 to N do
    Write(a[i], ' ');
  ReadLn;
end.