Одномерный массив(Turbo Pascal)

Ребят,помогите пожалуйста)
Дали задание:"Дан целочисленный вектор B. Записать вместо его максимально элемента сумму элементов,кратных 3."
Максимальный элемент я найти могу:

Program Lab4;
Const n=15;
Var i:byte;
max:real;
a:array[1..n] of real;
Begin
for i:=2 to n do
Begin
Write('a[' ,i, ']= ');
Readln (a);
end;
max:=a;
for i:= to n do
if a>max then max:=a;
Writeln('Max= ',max:6:2);
readln
end.

А вот как найти элемент кратный 3 не знаю)
Помогите,пожалуйста)