Ошибка при запичи числа в массив

[Siluet]

Здравствуйте! Вот у меня такая проблема. Я ввожу числа в Edit затем мне эти числа надо записать в массив и в этом массиве найти произведение чисел которые кратны трем, но при решений выходит ошибка

и указывает на строку которую я выделил жирным шрифтом

procedure TForm1.Edit4Click(Sender: TObject);
var p,pr,n,ch,code,i1,i:integer; a:array[1..100] of integer;
    c,st:string;
begin
p:=1;
st:=edit3.Text;
repeat
pr:=pos(' ',st);
c:=copy(st,1,pr-1);
delete(st,1,pr);
val(c,ch,code);
i:=i+1;
a[i]:=ch;
until st='';
for i1:=1 to i do begin
if a[i] mod 3 = 0 then p:=p*a[i]; end;
Edit4.Text:=IntToStr(p);
end;

[Siluet]

эту ошибку исправил, теперь при ответе у меня выходит 0, короче произведение он ненаходит

procedure TForm1.Edit4Click(Sender: TObject);
var p,pr,n,ch,code,i1,i:integer; a:array[1..100] of integer;
    c,st:string;
begin
p:=1; i:=0;
st:=edit3.Text;
repeat
pr:=pos(' ',st);
c:=copy(st,1,pr-1);
delete(st,1,pr);
val(c,ch,code);
i:=i+1;
a[i]:=ch;
until st='';
for i1:=1 to i do begin
if a[i] mod 3 = 0 then p:=p*a[i]; end;
Edit4.Text:=IntToStr(p);
end;

[Siluet]

всё!!! сделал!! спасибо всем