задачи с массивом Опции

[шалунья]

Пожалуйста, помогите решить задачки:

В массиве хранится информация о стоимости 1 кг. 30 видов конфет.
Определить порядковый номер самого дешевого вида конфет. Если таких
видов несколько, то должен быть найден номер первого и последнего из
них.

Даны действительные a1,....,a16. Получить max(a1+a16,a2+a15,....,a8+
a9)

[volvo]

шалунья
Вторая задача будет решаться вот так:

Код

var a: array[1 .. 16] of real;
i: integer;
max: real;
Begin
 for i := 1 to 16 do
 begin
   write('a[', i, '] ='); readln(a[i]);
 end;
 max: = -maxInt;
 for i := 1 to 8 do
   if max < (a[i] + a[17-i]) then max := a[i] + a[17-i];
 writeln('максимум = ', max)
End.

Писал прямо сюда, так что могут быть ошибки...