Нахождение и вывод наибольшей суммы двух соседних элементов массива, которая не кратна трем - 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