В одномерном массиве А подсчитать число положительных элементов, имеющих четный индекс. Отрицательные элементы массива заменить нулями (в паскале)

var a: array [1..100] of real;    n, i, kol: integer;begin    readln(n);    for i := 1 to n do        read(a[i]);    kol := 0;    for i := 1 to n do begin        if (a[i] > 0)and(i mod 2 = 0)        then kol := kol + 1;        if a[i] < 0        then a[i] :=0;    end;    writeln(kol);end.