Ausgeben:
Delphi-Quellcode:
memo1.lines.add('Hallo da bin ich');
//oder
memo1.lines.add(inttostr(faktor)+' geht nie und nimmer');
Und testen kannst du entweder schon beim Füllen des Arrays (wenn eine Zahl größer 1 ist, hat sich das ganze ja schon erledigt) oder eben hinterher in einer extra Schleife.
Am besten ist du nimmst dazu eine Variable vom Typ Boolean und merkst dir wenn ein ArrayElement größer 1 geworden ist (die Variable kann auch vom Typ Integer sein und du zählst einfach wieviele Elemente <> 1 sind)