type
        Planet = (Unknown, Mercury, Venus, Earth, Mars, Jupiter, Saturn, Uranus, Neptune);
        PlanetContainer = record
            gravity: real;
            radiusKm: real;
            massKg: real;
            orbitKm: longint;
            orbitDays: integer;
            surfacePressureBars: real;
            moons: integer;
            rings:  boolean
        end;

    var
        planets : array [Planet] of PlanetContainer;