Отсортировать по убыванию элементы массива стоящи после 2-ого нулевого вектра — Pascal(Паскаль)

uses
  Crt;
const
  N = 20;
var
  a:array [1..n] of integer;
  i,j,temp,p,c: integer;
begin
  ClrScr;
  c:=0;
  for i:=1 to N do
  begin
    a[i]:=random(8)-4;
    if (a[i]=0) and (c<>2) then
    begin
      Inc(c);
      p:=i+1
    end
  end;
  if c=2 then
    for i:=p to N-1 do
      for j:=i+1 to N do
        if a[j]<a[i] then
        begin
          temp:=a[i];
          a[i]:=a[j];
          a[j]:=temp
        end;
  for i:=1 to N do
  begin
    if (i=p) and (c=2) then
      TextColor(2);
    Write(a[i],' ');
  end;
  ReadLn
end.