Implementation of DFA 7/10
  case state of
    ...
    f2: begin {integer}
          if symbol in ['0'..'9'] then
            str := str + symbol;
          else
          begin
            ungetchar(symbol); {return symbol}
              TOKEN := INTEGER;
              {conversion value of str to integer}
            break;
          end;
        end; {state f2}
16/35
s
integer
f2
0..9
0..9