Tính tổng

Đề bàI: cho dãy A với n số nguyên. viết chương trình tính tổng các phần tử có giá trị chẵn tại vị trí lẻ trong dãy?

uses crt;
var  n,i,tong:word;
a:array[1..250] of word;
begin
 clrscr;
 write('Nhap N: ');readln(N);
        for i:=1 to N do
  begin
  write('Nhap phan tu thu ',i,': ');
                readln(a[i]);
  end;
        for i:=1 to N do
                if i mod 2 <> 0 then
                        if a[i] mod 2 = 0 then tong:=tong + a[i];
        writeln('Ket qua la: ',tong);
        readln
end.