Создать массив a(15). найти max среди сумм пар соседних элементов a[1]+a[2], a[2]+a[3] и т.д.

Var a:array[1..15]of integer;
i,max:integer;
Begin
  for i:= 1 to 15 do
     a[i]:=random(100);
 
  max:= a[1]+a[2];
  for i:= 1 to 14 do
   if max < a[i]+a[i+1] then
       max := a[i]+a[i+1];
 
  writeln(max);
End.