Нахождение и вывод наибольшей суммы двух соседних элементов массива, которая не кратна трем - PascalABC.NET

Формулировка задачи:

Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования

алгоритм, который находит и выводит наибольшую сумму

двух соседних элементов

, которая не кратна 3-м

. Если таких пар нет, вывести на экран 0. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.

                    Листинг программы
                
 
                        
                          
                    
const 
     N=40;
var
     a: array[1..N] of integer;
     i, k, sum, max: integer;
begin
     for i:=1 to N do
       readln (a[i]);
    ...
 
end.

Попыталась пойти так, но выводит только сумму двух последних элементов

                    Листинг программы
                
 
                        
                          
                    
const N=10;
var
 a: array[1..N] of integer;
 i, k, sum, max: integer;
begin
 for i:=1 to N do
  readln (a[i]);
  max:=0;
 for i:=1 to N-1 do
   sum:=a[i]+a[i+1];
   if (sum mod 3 <> 0) and (sum>max) then 
 begin
   max:=sum;
   writeln(max);
 end
   else
   writeln('0');
end.

Решение задачи: «Нахождение и вывод наибольшей суммы двух соседних элементов массива, которая не кратна трем»

Листинг программы

sum:=a[i]+a[i+1];

Объяснение кода листинга программы

Создается переменная sum типа double (число с плавающей точкой)
В переменной sum происходит сложение элементов массива a с индексами i и i+1
Результат сохраняется в переменной sum