Pascal/Turbo Pascal - EXAMEN VECTORES

HOLA A TODOS. MI PROBLEMA ES EL SIGUIENTE:
NECESITO REALIZAR UN SENCILLO PROYECTO PARA MI ASIGNATURA DE PROGRAMACION, SI QUIERO APROBAR.
EN SI, TAL PROYECTO NO CARECE DE MAYOR DIFICULTAD, PERO LOS VECTORES NO LOS ACABO AUN DE ENTENDER.
ESTE ES EL PROYECTO
_CREAR UN PROGRAMA QUE SOLICITE 10 ENTEROS POR TECLADO Y LOS GUARDE EN UN VECTOR.

-SEGUIDAMENTE, QUE NOS PIDA UN ENTERO PARA VER SI SE HALLA EL VECTOR.

-SI EXISTE, DEBE INDICAR EN QUE POSICIONES SE ENCUENTRA, EN CASO CONTRARIO, INDICAR QUE NO ESTA.

ESTARIA ENORMEMENTE AGRADECIDO, A AQUEL QUE ME PUDIERA SOLUCIONAR DICHO PROYECTO, YA QUE SIGNIFIRCARIA MUY PROBABLEMENTE EL APROBADO EN LA ASIGNATURA DE PROGRAMACION.

Si tuviera un poco de tiempo te lo haría, pero no es el caso. Para que entiendas mejor los vectores,
quizas te sirva con los apuntes de mi universidad.

http://eupt.unizar.es/prog/transparencias_clase.html

PROGRAM BUSQUEDA (INPUT,OUTPUT);

TYPE vector=array[1..10] of integer;

VAR
V:vector;
NUM:integer;
POS:integer;
MAX:integer;
{-------------------------------------------------------}
PROCEDURE CARGAR(var V:vector;var max:integer);

VAR
i:integer;

BEGIN

writeln (´Introduce los 10 elementos del vector: ´);
writeln;
for i:=1 to 10 do
BEGIN

write (´Numero? ´);
readln(V[i]);
END;
END;
{-------------------------------------------------------}
FUNCTION POSICION(V:vector;NUM:integer;MAX:integer):integer;
var
i:integer;

BEGIN

i:=1;
while (not (num=V[i])) and (not (i=10)) do

i:=i+1;

if v[i]=num then POSICION:=i
else posicion:=-1;
END;
{-------------------------------------------------------}

BEGIN

CARGAR(V,MAX);
writeln;
writeln (´Numero a buscar?: ´);
readln(NUM);
writeln;
POS:=posicion(V,num,MAX);
if pos=-1 then
writeln (´El numero no esta en el array´)
else writeln (´La posicion en el array es la: ´,pos);
readln;
END.

GRACIAS A LEENOOX Y A ADRIAN POR MOLESTARSE EN CONTESTAR A MI PETICION DE AYUDA. AGRADECERSELO ESPECIALMENTE A LEENOOX , QUE DESTINO PARTE DE SU TIEMPO A REALIZAR EL CODIGO DE DICHO PROYECTO, CON EL UNICO Y MERO OBJETO DE AYUDAR DESINTERESADAMENTE. MUCHAS GRACIAS, Y FELICES FIESTAS DE NAVIDAD. OS ESTOY ENORMEMENTE AGRADECIDOS.