Дано целое число n (> 1) и набор из n чисел. найти максимальную сумму двух соседних чисел из данного набора.10 минут

Uses crt;
const n = 5;
var a:array[1..n] of integer;
i,max:integer;
begin
for i:=1 to n do
readln(a[i]);
max = a[1]+a[2];
for i:=1 to n-1 do
if (a[i]+a[i+1] > max) then
max:= a[i]+a[i+1];
writeln(max);
end.

Готово