{$codepage UTF8} VAR PCad:pointer; BEGIN PCad:=NIL; getmem(PCad,5); //4 bytes para los caracteres, 1 para la longitud string(PCad^):='Hola'; Writeln(string(PCad^)); freemem(PCad); getmem(PCad,11); //11 bytes para los caracteres, 1 para la longitud string(PCad^):='0123456789'; Writeln(string(PCad^)); freemem(PCad); END.