Pascal/Turbo Pascal - contador

disculpen quisiera que alguein me ayudara a crear un contador que lo unico que tiene que aser es que cada bes que se tecleuna tecla abanse el contador de 1 en uno hasta 1000 ayuda porfa,..............

necesitas la uses crt de pascal

inicializas el contador a 0 y lo metes en un bucle (REPEAT-UNTIL // DO-WHILE)
If Keypressed then
contador := contador + 1;

puedes hacer lo mismo pero con la funcion readkey para no estar en un ciclo que consume al procesador:
contador=0

y dentro de un ciclo pones

tecla:=readkey;
contador:=contador+1;

hasta que contador =1000

Ajustandome estrictamente al enunciado.

for i:=0 to 1000 do Readkey;

Buen punto Diego, oye solo tengo una duda algo curiosa.

En este caso te admite el compilador que el valor que devuelve readkey no se almacene en ningún lugar?

Sí, no es problema, al menos en la versión 7.0 de Turbo Pascal, en la 6.0 creo que era obligatorio dar una variable de retorno para cualquier función.

Okas, lo que pasa es que yo siempre trabaje la 6.0.
Saludos