{$codepage UTF8} VAR cad50:string[50]; //En memoria 51 bytes reservados BEGIN //se coloca sólo 10 caracteres, se usan 10 bytes de los 51 bytes reservados cad50:='El planeta'; //muestra la cantidad de caracteres colocados writeln('cad tiene : ', Ord(cad50[0]),' caracteres') END.