Update main.pas

Life 5.2
Now you change surface type (flat or torus).