I give up. Mathematica, please give me a refund. I'm dropping out of school because I have no future in this line of work. I don't have an IQ of 500000 so I'll never be able to learn Mathematica.

Also, how do I read back all the contents of a list?

Figuring out how programming works is a real hurtle.

Figuring out how Mathematica progamming works can be a hurtle on top of two other hurtles.

For your lists, what about something like this inside your While

{GeoGraphics[GeoMarker[GeoPosition[{x, y, z}]], GeoRange -> "Country"], 
 GeoGraphics[GeoMarker[GeoPosition[{x, y, z}]], GeoRange -> "World", GeoProjection -> "Robinson"]
}

but this is doing things with new parts of Mathematica that I've never even seen before.

If I want 3 lists will xlist={} and ylist={} and zlist={} work?

Hint for the second part of your question: Look up While in the help system. Could that do something for you?