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

const    N = 10;var    A : array [1..N] of Integer;    i, count : Integer;begin    // здесь заполняешь массив    for i := 1 to N do    begin        if ( i mod 2 = 0 ) and ( A[i] > 0 ) then inc(count);        if A[i] < 0 then A[i] := 0;    end;end.