Mine

If Cs2<Cs then begin
                 Cs:=100+(Cs2-Cs);
                 if Sc2-1<Sc then Sc:=60+(Sc2-1-Sc)
                             else Sc:=Sc2-1-Sc;
                end
           else begin
                if Sc2<Sc then Sc:=60+(Sc2-Sc)
                          else Sc:=Sc2-Sc;
                Cs:=Cs2-Cs;
                end;