Преоброзить масив таким образом,что бы елементы,равные нулю,размещались послех всех других

Pascal const     n = 5; var   a : array [1..n] of integer;   i,p : integer; begin  for i := n downto 1 do   begin    if a[i] = 0 then     begin      a[i] := a[n-p];      a[n-p] := 0;      p := p +1;     end;   end;