ПОМОГИТЕ СРОЧНО!!!! ДАЮ 14 БАЛЛОВ!!! НАЧАЛО ЗАДАЧИ УЖЕ ЕСТЬ, ОСТАЛОСЬ ТОЛЬКО ПРОДОЛЖИТЬ

Найти максимальную из сумм a1+an; a2+an-1; где a1, a2...an - элементы массива

Начало:
Program P;
const n=14;
a1=20;
a2=10;
var
s: array [10...20] of integer;
begin

Program P;const n=14;vara: array [1..n] of integer;i,max:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end;writeln;max:=a[1]+a[n];for i:=2 to n div 2 do if a[i]+a[n-i+1]>max then max:=a[i]+a[n-i+1];writeln('max = ',max);end.Пример: 11 2 15 15 8 3 8 12 19 18 7 2 11 8max = 26