Массив: Определить значение наибольшего интервала времени между отправлениями поездов.

DECLARE FUNCTION CompTimes% (t1 AS STRING, t2 AS STRING)
 
 CLS : LOCATE 5, 7
 PRINT "Time Difference is"; CompTimes%("11:23:31", "16:32:21"); "seconds"
 
FUNCTION CompTimes% (t1 AS STRING, t2 AS STRING)
 
DIM h1 AS LONG, h2 AS LONG
DIM m1 AS LONG, m2 AS LONG
DIM s1 AS LONG, s2 AS LONG
DIM sec1 AS LONG, sec2 AS LONG
 
  h1 = VAL(MID$(t1, 1, 2))
  h2 = VAL(MID$(t2, 1, 2))
  m1 = VAL(MID$(t1, 4, 2))
  m2 = VAL(MID$(t2, 4, 2))
  s1 = VAL(MID$(t1, 7, 2))
  s2 = VAL(MID$(t2, 7, 2))
 
 sec0 = ((3600 * h1) + (60 * m1) + s1)
 sec1 = ((3600 * h2) + (60 * m2) + s2)
 
 CompTimes% = ABS(sec1 - sec0)
 
END FUNCTION

DECLARE FUNCTION CompTimes& (t1 AS STRING, t2 AS STRING)
DECLARE FUNCTION TimeToVal& (t AS STRING)
DECLARE FUNCTION ValToTime$ (v AS LONG)
DECLARE SUB AppendTime (NewTime AS STRING)
DECLARE SUB DisplayTimes ()
DECLARE SUB CheckTimes ()
REDIM SHARED TrainTimes(1 TO 5) AS STRING
DIM SHARED TekIdx AS INTEGER
 
 WIDTH 80, 50
 CLS : LOCATE 5, 5
 
 AppendTime "11:23:31"
 AppendTime "16:32:21"
 AppendTime "13:32:15"
 AppendTime "12:10:03"
 AppendTime "20:42:46"
 
 PRINT "Source times:": LOCATE CSRLIN + 1, 7
 
 DisplayTimes
 
 LOCATE CSRLIN + 1, 5
 PRINT "Sorted times:": LOCATE CSRLIN + 1, 7
 
 CheckTimes
 
SUB AppendTime (NewTime AS STRING)
DIM MaxInMas AS INTEGER
MaxInMas = UBOUND(TrainTimes)
TekIdx = TekIdx + 1
IF TekIdx > MaxInMas THEN
  MaxInMas = MaxInMas + 5
  REDIM TrainTimes(MaxInMas)
END IF
TrainTimes(TekIdx) = NewTime
 
END SUB
 
SUB CheckTimes
DIM Tm(1 TO TekIdx) AS LONG
DIM Diff AS LONG, MaxDiff AS LONG
DIM OldCl AS INTEGER
OldCl = POS(0)
 
   FOR i = 1 TO TekIdx                    ' To digital fmt
      Tm(i) = TimeToVal(TrainTimes(i))
   NEXT
 
   FOR j = TekIdx - 1 TO 1 STEP -1        ' Sort
      FOR i = 1 TO j
         IF Tm(i) > Tm(i + 1) THEN SWAP Tm(i), Tm(j + 1)
      NEXT
   NEXT
  
   FOR i = 1 TO TekIdx                    ' Disp sorted
      LOCATE , OldCl
      PRINT ValToTime$(Tm(i))
   NEXT
 
   Diff = -1  ' for init first            ' Find diff
   FOR i = 1 TO TekIdx - 1
      Diff = Tm(i + 1) - Tm(i)
      IF Diff > MaxDiff THEN MaxDiff = Diff: MaxIdx = i
   NEXT
 
 
   LOCATE CSRLIN + 3, 5                   ' Msg
   PRINT "Maximum time difference between train departures is"; Diff; "seconds"
   LOCATE , 5
   PRINT "and this is times "; ValToTime$(Tm(MaxIdx)); " and "; ValToTime$(Tm(MaxIdx + 1))
END SUB
 
SUB DisplayTimes
DIM OldCl AS INTEGER
OldCl = POS(0)
 
 FOR i = 1 TO TekIdx
    LOCATE , OldCl
    PRINT TrainTimes(i)
 NEXT
 
END SUB
 
FUNCTION TimeToVal& (t AS STRING)
 
  h = VAL(MID$(t, 1, 2))
  m = VAL(MID$(t, 4, 2))
  s = VAL(MID$(t, 7, 2))
 
  TimeToVal = ((3600 * h) + (60 * m) + s)
 
END FUNCTION
 
FUNCTION ValToTime$ (v AS LONG)
  DIM h AS LONG, m AS LONG, s AS LONG
  DIM hs AS STRING, ms AS STRING, ss AS STRING
  h = v \ 3600
  m = (v - (h * 3600)) \ 60
  s = v - (h * 3600) - (m * 60)
  hs = LTRIM$(STR$(h))
  hs = STRING$(2 - LEN(hs), "0") + hs
  ms = LTRIM$(STR$(m))
  ms = STRING$(2 - LEN(ms), "0") + ms
  ss = LTRIM$(STR$(s))
  ss = STRING$(2 - LEN(ss), "0") + ss
  ValToTime$ = hs + ":" + ms + ":" + ss
END FUNCTION