Задача с массивами(Паскаль)

[Сирокко]

Дана прога
writeln('vvesti elementy massiva');
for i:=1 to n do
begin
readln(A[i]);
s:=s+A[i];
end;
writeln('vvesti znachenie elementa');
readln(A[i]);
y:=((A[i]/s)*100);
в ней нужно найти отношение значения элемента к сумме элементов массива. Проблема в том что ответ получается при подстановке любого числа а должен только при введении значения одного из элементов, поэтому нужно написать ограничение только я не знаю чем ограничить вводимое число. За помощь буду очень признателен)))