Дан массив из 20 чисел, найти сумму всех четных чисел.

Напишу алгоритм дальше сам додумаешь!
for i:=1 to 20 do
begin
if (i mod 2 =0) then
s:=s+a[i];
end;
Что не понятно пиши комент!