Информатика, 9 класс, паскаль авс найти сумму всех четных элементов массива из 10 целых чисел ,стоящих на четных местах.

Var
a: array[1..10] of integer;
s, i: integer;
begin
for i:=1 to 10 do
begin
a[i]:= random(50)+1;
if (a[i] mod 2 = 0) and (i mod 2 = 0) then
s:=s+a[i];
writeln(a[i])
end;
writeln('Сумма: ', s)
end.