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

[Kinder=)]

Ребят,помогите пожалуйста)
Дали задание:"Дан целочисленный вектор 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[i]);
end;
max:=a[i];
for i:= to n do
if a[i]>max then max:=a[i];
Writeln('Max= ',max:6:2);
readln
end.

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

[Zer0]

на самом деле все просто

if a[i] mod 3 = 0 then //делится на 3 и нужно его прибавить к общей сумме