Yep! I'm porting this code to Pascal.
My mistake was in incorrect understanding how switch statement without breaks works.
So, after code purifying Your desire may shall come