Pascal/Turbo Pascal - necesito ayuda con un programa

Nesecito ayuda con un programa que me lea una tecla y me diga a cual caracter de codigo ascii pertenece un ejemplo:
si yo le doy a la tecla F1 me tiene que decir a cual numero del ascii pertenece.

Prueba este codigo.
uses crt;
var
a:char;
begin
repeat
if keypressed then
begin
a:=readkey;
writeln('ASCII=',ord(a));
end;
until a=#27;
end.

Es sencillo, lo único que tienes que hacer es esto:

If (tecla:=readkey)=#0 then
tecla:=readkey;
writeln(tecla);
Write(ord(tecla),' ');

El primer readkey indica si presionaste tecla de control, ya que estas poseen 2 códigos, el código 0 y uno de los 254 códigos restantes, si su código es distinto de 0 entonces se trata de una tecla normal y se salta el segunde readkey.

Espero te sirva.