[Alegun]

Вообще работать не должно

Заполнение массива

Код:

for i := 1 to 5 do a[i]:= random (11) + 1;

дальше

Код:

n:= p* a[i*2];

i в этот момент равно 5, умножить на 2 будет 10, такой ячейки в массиве нет - вызовет AV