Массив

[KREGI]

Вот задание, которое было дано:
Определить сумму и количество четных элементов массив, состоящего из 8 элементов.
Вот что напписал я

Var
p: array[1..8] of integer;
i,s: integer;
begin
for i:=0 to 8  do
p[i]:=strtoint(stringgrid1.cells[i,0]);
If (p[i] mod 2 = 0) then
s:=s+p[i];

Label1.caption:=  'Сумма четных чисел'+inttostr(s)

end;

программа собирается, но при подсчете выдает ошибку.
Проверте пожайлуста, правильность написания кода...

[TOJluK]

Если правильно понял, то так как- то:

var
p: array[0..7] of integer;
i,s: integer;
begin
s:=0;
for i:=0 to 7  do
 begin
 p[i]:=strtoint(stringgrid1.cells[i,0]);
 end;

for i:=0 to 7  do
 begin
 If (p[i] mod 2 = 0) then
 s:=s+p[i];
 end;
Label1.caption:=  'Сумма четных чисел'+inttostr(s)

[Лукманов Александр]

тут