Pascal/Turbo Pascal - arrows

Buenas , hice un procedimiento en pascla q simulaba una hoja de calculo y al momento de mostrar la hoja podia mostrar en la pantalla como maximo 6 filas y para ver el resto presionaba la tecla 8 para subir o 2 para bajar,mi pregunta es como puedo hacer para ,en vez de las teclas 2 y 8 , utilizar las teclas arrows(flechas) para subir y bajar....

Aquí tienes

#72 : Flechaarriba;
#80 : flechaabajo;
#73 : Re Pág;
#59 : F1;
#27 : Esc;
#32 : Espacio;
#77 : flechaderecha;
#75 : flechaizquierda;
#13 : Enter or Intro;
#81 : Av Pág;
#60 : F2;
#61 : F3;
#62 : F4;
#63 : F5;
#64 : F6;
#65 : F7;
#66 : F8;
#67 : F9;
#68 : F10;
#69 : no sé;
#71 : Inicio, no esa del menú inicio;
#8 : Bakspace;
#19 : Alt+R;
#83 : Supr;
#82 : Insert;
#45 : Alt+X;

Por si te sirven

Saludosp

Los códigos son correctos pero ten en cuenta que las teclas de cursor (que tú llamas "arrows") son teclas especiales que envían dos códigos, uno a continuación del otro, el primero es siempre #0 y el segundo el que está en el listado de Morito.

a:=readkey; { tomo primer código }
if a=#0 then
begin
a:=readkey; { tomo el segundo }
case a of
#72:writeln('Flecha arriba.');
#80:writeln('Flecha abajo.');
end; { case }
end; { if }