i:=1;
  while i<=n do
  begin
    if prch[i]=0 then
    begin
      for j:=i+1 to n do
        prch[j-1]:=prch[j];
      n:=n-1;
    end
    else
      i:=i+1;
  end;