Update main.pas

Life 5.1
Torus surface added.