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

[-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.      

[volvo]

for i:=1 to n do begin
  writeln('Введите ',i,'-ый элемент'); readln(a[i]);
end;
i := 1; s := 0;
while (i <= n) and ((a[i] mod 3) <> 0) do begin
  S := S+a[i];
  i := i + 1;
end;
writeln('сумма элементов =', S:2);

[-KoT-]

СПС ОГРОМНОЕ всё работает