Найти сумму элементов в одномерном массиве, оканчивающихся на 3 и стоящих на четных местах

Const n = 10;

var i, s : integer;

a:array [1 ... n] of integer;

begin

for i:=1 to n do begin

a[i]:=random (20);

write (a[i],' ');

end;

for i:=1 to n do begin

if (i mod 2 = 0) then begin{проверяем четность}

if (a[i] mod 10 = 3) then { здесь проверяем чтобы число заканчивалось на 3} s:=s+a[i];

end;

writeln;

write ('summa = ', s);

end.