Pascal/Turbo Pascal - Convertir char a su valor en ASCII

Necesito convertir caracteres a sus valores ascii , es decir lo ke kiero es convertir una A en un 1 una B en un 2 etc... y si pudiese obtener los valores ascii es decir #65 para la A con restarle 16 ya obtendria el 1 cosa ke se podria aplikar a kualkier letra.

¿65-16=1? Creo que no xD.

Esta es la solución:

var
Caracter: char;
ValorASCII: byte;

begin
Caracter:='A';
ValorASCII:=ord(Caracter)-64;
WriteLn(ValorASCII);
end.