Конфеты (массив)

[nikolay61]

Пончик попал в Цветочного города i увидел дорогу, вдоль которой разложены мешки с конфетами. На каждом мешке написано количество конфет. Пончик может взять в каждую руку два мешка, лежащие рядом. Какое наибольшее количество конфет он может взять?
Технические условия
1.
2. В единственной строке ввода задано сначала количество мешков N (4 <= N <= 10000), а затем N чисел через пробел - количество конфет в каждом мешке (все числа положительные и не превышают 10000).
Ввод: 5 19 26 7 6 9
вывод: 60
Разъяснение:
в левую руку можна взять мешки с номерами 1 и 2 (19+26=45 конфет), а в правую с номерами 4 и 5 (6+9=15). тогда их вместе будет 60

 uses crt;
const
max=10000;
var A: array [0..max] of real;
i, n :integer;
pos :integer;
begin
  clrscr;
write('kolichestvo ');
readln(n);
write('vv zn');
for i:=1 to n do
read(A[i]);
 If n<4 then
 write('net')
 else
 begin

pos:=1;
for i:=2 to n-1 do
	if a[i]+a[i+1]>a[pos]+a[pos+1] then
		pos:=i;
writeln(a[pos]+a[pos+1]);
 end;
end.

Но что-то неправильно.
Проходка тестом:
Вход: 4 0 0 0 0
выход:0

вход: 4 41 12 43 12
выход: 108
для проверки еще файл