Al parecer como no existe ningun tema... que se especifique en pascal, y como yo he tenido muchos problemas con el... entonces decidi abrir este tema...porque primero que nada me a estado gustando programar en pascal y quiero aprender mas, y por lo mismo hice esto... entonces si alguien tiene problemas entre todos (me incluyo yo) lo solucionaremos.

Pero am. por mientras quiero ser el primero   ya que ya abri muchos temas sobre esto entonces ya no abrire mas y pondre mis problemas aqui
espero que me puedan ayudar. ...

procedure EstadoE18;
var
  c : char;
begin
{$ifdef DEBUG}
  writeln(stderr,'Estado E18');
{$endif}
  Avanzar;
  c := Leer;
{como pongo el caracter '}
  if c in '''' then   //Mi problema esta aqui
  begin
    S := S + c;
    Avanzar;
    c := Leer;
    EstadoT19;
  end;

En parte de mi codigo de un automata que ando haciendo... lo que quiero esque en el momento en que me lea el caracter '    , me envie a un estado T19... pero no me lo leo porque sabemos que ese caracter sirve para que sea referencia a un texto.
Si yo lo pongo:

if c in '''  then   (me pone en rojo igual el then)

if c in '38'  then   (haciendo referencia al ASCII me sale error)

como podria solucionarlo :S ¿?  

function CientoFloat(s:string): real;
var
v: real;
i: integer;
d: integer;
Num1: integer;
c: integer;
Extra: integer;
begin
       v:=0;  d:=0;  c:=length(s);  Extra:=0;
       while (c<=(lenght(s)+1)) do
       begin
       for i:=1 to length (s) do
            begin
                 if s[i] in ['0'..'9','-'] then
                    d:= ord(s[i])-48;
                    Num1:=Num1+d;
            end;
            v:=exp(Num1*ln(Extra));
            Extra:=Num1;
            c:=c+1;
       end;
 CientoFloat := v;
end;

(lo modifique jeje vi uno de mis errores :S)

Aqui tengo el codigo de mi 13e-4 para poder hacer esta funcion lo que hice fue dividir en dos mi cadena... pero me sale error se supone que cuando encuentre los 2 numeros tanto el de la izquierda como el de la derecha deberia de funcionar no ¿? :/

Uses math;
 
Procedure dofrexp(Const X : extended);
 
var man : extended;
    exp: longint;
 
begin
  man:=0;
  exp:=0;
  frexp(x,man,exp);
  write(x,' has ');
  Writeln('mantissa ',man,' and exponent ',exp);
end;
 
 
begin
//   dofrexp(1.00);
   dofrexp(1.02e-1);
   dofrexp(1.03e-2);
   dofrexp(1.02e1);
   dofrexp(1.03e2);
end.

Disculpen... como utilizaria la matiza :S esque no le entiendo a esta matiza :/