Pascal lexer: wrong for 2 levels nested comments

[Alexey-T]

  procedure Main;
  begin
    writeln;

    {$define typef :=
      writeln({$ifdef val_unsigned} 'u' {$else} '' {$endif}, 'int', val_bits);
      {$define boundf :=
        {$define funcf :=
          benchmark_impl} iterate_functions
        } iterate_bounds
        writeln;
      } iterate_types
  end;