CASE и преобразование типов

[StillZero]

5 минут убили на эту хрень
ожидали, что код не будет вызываться, а он вызывается

Код: Выделить всё

 PROGRAM
              MAP
                SomeProc(STRING Number)
              END

  CODE
  START(SomeProc,25000,'22')


SomeProc        PROCEDURE(STRING Number)
  CODE
  CASE Number
  OF 2 TO 5
    MESSAGE('Ну нифига себе: ' & Number)
  END

как по вашему, это типо нормально или лажа полная ?

[Дед Пахом]

Глянул в отладчике - 2 и 5 преобразуются в строки (а не Number в число, как кому-то хотелось бы) - cla$longtostr, а затем идёт сравнение строк, так что всё законно.