Tính Tổng

Đề bài: Dãy A có N số nguyên. N<=100, mỗi phần tử của A có giá trị không quá 500. Tính tổng các phần tử của dãy A có vị trí chẵn và giá trị lẻ

var  n,i,tong:word;
a:array[1..100] of word;
begin
 write('Nhap N: ');readln(N);
        for i:=1 to N do
  begin
  write('Nhap phan tu thu ',i,': ');
                readln(a[i]);if a[i]>500 then break;
  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.