Pascal/Turbo Pascal - Ayuda con el PageUp y PageDown en pascal

nesecito saber como puedo hacer que estas teclas funcionen en un programa...

La teclas especiales (grises y Fs) generan dos codigos de tecla, el primero es siempre 0 (cero) y el segundo trae el codigo de tecla. Este pequeño programa te va a servir para saber el segundo codigo del PgUp y PgDn.
uses crt;
var
a:char;
begin
repeat
a:=readkey; {toma primer codigo}
if a=#0 then {si es cero}
begin
a:=readkey; {toma el segundo}
writeln('Tecla especial, codigo=',ord(a));
end
else
writeln('Tecla normal, codigo=', ord(a));
until a=#27;
end.
el segundo readkey no produce una parada en el programa.