Дан массив из 10 элементов. найти сумму 2 и 9 элементов

//PascalABC.Net 3.2
begin
var a:=ReadArrInteger('Вводите: ', readinteger('Кол-во элементов: '));
write ('Сумма: ', a[readinteger('Номер 1-го элемента: ')]+a[readinteger('Второго: ')])
end.