procedure EstadoT2;
var
  c : char;
begin
{$ifdef DEBUG}
  writeln(stderr,'Estado T2');
{$endif}
  Avanzar;
  c := Leer;
  while c in ['a'..'z'] do
  begin
    S := S + c;
    Avanzar;
    c := Leer;
  end;
  strtoint (const S: string): LongInt;  //Problema aqui 57 / 19
  writeln('Token ID reconocido: ', S);
end;
 

Disculpen esque en devpascal no me reconoce esa funcion me dice

57 / 19 automa~1.pas
 Fatal: Syntax error, ) expected but identifier S found

y

tambien este error

57 / 20 automa~1.pas
 Error: Illegal expression


y segun yo esta bien como lo quiero transformar... o esta mal :/ ¿?
ya que lo que quiero es imprimir la constante en entero.

Gracias khronos14 oye disculpa otras 2 preguntas.

procedure EstadoT3;
var
  c : char;
  Numero : integer;
begin
{$ifdef DEBUG}
  writeln(stderr,'Estado T3');
{$endif}
  Avanzar;
  while c in ['0'..'7'] do
  begin
    S := S + c;
    Avanzar;
    c := Leer;
  end;
  case c of
  'x': EstadoT4;
  else
  end;
 
  Numero:= OctToInt(S);     {error aqui 175/12}
  writeln('Token OP reconocido: ', Numero);
end;

Disculpa este error me sale para pasar de octal a entero.
175 / 12 avanze~1.pas  Error: Identifier not found OCTTOINT

lo que veo esque no estoy ingresando un numero octal si no una cadena, entonces estoy intentando pasar de una cadena a octal pero no me funciona entonces como seria pasar eso ¿? si se puede saber

entonces tambien intetne usar el octtoint(08) intentando usar un numero y tampoco me funciono me salio el error de el identificador no encontrado.

Gracias... am am y ya para dejarte de molestar crees que me puedas ayudar con los hexadecimales. ¿?

tambien los tengo en una cadena.  

porque tambien me dijieron que tengo que usar el HextoInt.

59 / 12 avanze~1.pas  Error: Identifier not found HEXTOINT

e igual me sale error :/ el mismo.