Von einer Array nur eine Variable durchlassen?

[Hallo_Thomas]

Ich wollte in eine Array folgende Bedingung einbauen.
Wenn 2 oder mehr Ergebnisse über 0<... liegen, sollten alle bis auf ein Feld auf Null gesetzt werden.Dieses Feld sollte aber beim nächsten Procedurdurchlauf wieder erkannt werden, und erst wenn Dieses Feld auf null zurückfällt kann ein neues Feld auf einen Wert über null Steigen.




Feld : array[0..1500] of Integer;