Array How Can I Print A Result From A Nested For Loop Only Once Hey Delphi