Pascal/Turbo Pascal - Help urgente con Lista enlazada antes del 18/11/02

Soy estudiante de programación voy en primer año y necesito realizar lo siguiente en una lista enlazada

- Agregar N elementos a la lista
- Imprimir la lista con los elementos
- Ingresar un elemento x y luego verificar si se encuentra o no en la lista
Si el elemento se encuentra : imprimir su posicion
- Imprimir lista resultante

El programa debe ser implementado utilizando punteros, ademas debe ser entregado el 18/11/2002

Se despide, estudiante desesperado

Hola Solo puedo decir que para mi el secreto es
Donde p toma el valor de la base de la lista osea el primer dato ingresado
x es el dato por cual esta ordenado la lista espero que entiendas trate aserlo mejor que podia no soy un genio
While (p<>0) and (x<>arreglo[p].x) do
Begin
pa:=p;
p:=Arreglo[p].nexo;
End;