массив, рдномерный массив Опции

[-KoT-]

блин, напиши плз чего тут нехватает. чтобы правильно работала или что надо заменить или добавить ?
ПЛЛЛЛЗЗЗЗЗ УМОЛЯЮ

Вычислить сумму элементов одномерного массива расположенных до первого встреченного числа кратного 3.

Код

Program P1
usescrt;
const
n=10;
type
mas=array[1..n] of integer;
var
a:mas;
i:byte;
S:integer;
BEGIN
clrscr;
   for i:=1 to n do
       begin
         writeln('Введите ',i,'-ый элемент');
         readln(a[i]);
         end;
           if a[i] mod 3=0 then
              S:=0;
                 for i:=1 to a[i] do
                      begin
                       S:=S+a[i];
                      end;
          writeln('сумма элементов =',S:2);
readln;
END.