Найти сумму

элементов массива с четными индексами, значение которых превышает К. (паскаль)

Uses crt;

const n=20;

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

s, k, i:integer;

begin

for i:=1 to n do

read (a[i]);

readln (k);

s:=0;

for i:=1 to n do

if (i mod 2=0) and (a[i]>k) then s:=s+a[i];

writeln (s);

end.