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

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;