Yo le tengo miedo al propio miedo. Nuestros miedos sólo nos limitan. Que hay despues de la muerte, si es que hay algo, lo sabré al morir. De nada sirve temer antes de conocer.

Lauta, eso es porque es un valor tipo char. Usa la funcion ORD para imprimir el numero tipo byte que corresponde a ese caracter y veras que es la longitud de la cadena.

uses crt;
var a:string;
begin
  a:='cadena';
  write(ord(a[0]));
  readln;
end.
 

Yo respondí a un tema cuya última respuesta fue tres días antes, y varias de las anteriores eran de más o menos la misma fecha. Eso no califica de antiguo.

Uno mas que se  une.