Einen Haufen Booleans auf Wert prüfen

[matashen]

Ich möchte auch noch eine Schleife beisteuern

Delphi-Quellcode:

i:=0;
repeat
inc(i);
until not liste[i];