Массивы Опции

[vovka239]

Помогите пожалуйста решить задачу:
"Даны целые числа а, n, x1, x2, x3,...,xn. Определить, каким по счету идет в последовательности х1, х2, хn член, равный а. Если такого члена нет, то ответом должен быть ноль."
Я в массивах почти ничего не понимаю, проболел эту тему. Сам пробовал написать, по шаблонам, так у меня либо программа вовсе не компилировалась, либо Nod32 яростно матерился на программу)

[vovka239]

У меня не получается, я не знаю как можно объявить массив в переменной, а потом указать ему N:

Var 
Mas : array [1..N] of integer;
Begin
Writeln('vvedite N:');
Read(N);
End.

Выдаёт ошибку.
Решил пока попробовать явно задать массив чтоб хоть как-то работало. Но в итоге тоже лажа какая получилась:

program Project1;
Var 
Mas : Array [1..100] Of Integer;
a : Integer;
n : Integer;
i : Integer;
Begin
writeln('vvedite a:');
read(a);
For i:=1 to 100 do
writeln('vvedite', i,'); 
 read(i);/*Я вообще не понимаю эти 2 строки, для чего они? Хотя если их убрать, то становится интересней и непонятней как отрабатывается код*/
Begin
If Mas[i]=A then n:=i;
Writeln(n);
readln
End
End.

Пока переписывал код на форум, ещё много пробовал, так что записал может чуть не так.
Помогите пожалуйста разобраться..