Помогите разобраться с random Опции

[Eichhorn]

Есть задача:
Дан массив целых чисел, заданных случайным образом из диапазона от 29 до 35 и число Х из этого же диапазона. Длина массива равна N. Если число Х есть в массиве, то вычислить сумму элементов от начала массива до последнего вхождения этого числа в массив. Задачу решить для N=10.
Я написала программу. Она работает, но неправильно. Мне кажется, что косяк сидит именно в random. Можете подсказать что и как нужно изменить?
Вот текст программы:

var i,n,s,c,x:integer;
a:array[1..10] of integer;

begin
n:=10;
s:=0;
x:=29;
for i:=1 to n do
begin
randomize;
a[i]:=random(29)+35;
writeln(a[i]);
readln;
end;
if a[i]=x then c:=i;


for i:=1 to c do
s:=s+a[i];
writeln(s);
readln;
end.

В random пробовала подставлять и другие числа, но ноль эффекта.

Сообщение отредактировано: Eichhorn - 5.01.2011 13:58

[Eichhorn]

О, я со всем разобралась))) Задачу решила