procedure degreestodegreeparts(
     degreesin: real; var degrees, minutes, sECOnds: real
   );