РЕБЯТ SOS!!!! Выручайте

Написать программу расчета суммы положительных элементов одномерного массива, имеющих нечетные индексы(БЛОК СХЕМА + ПРОГРАММА)

Var   x: Array [1..25] of Integer;   i,k: Byte;   s,a: Integer; BEGIN s:=0; Writeln('Массив:'); For i:=1 to 25 do begin   x[i]:=Random(100);   If Odd(i) Then   s:=s+x[i];   Write(x[i],' '); end; Writeln; k:=0; Write('Введите число A: '); Readln(a); For i:=1 to 25 do If (x[i]>a) and (x[i] mod 5=0) Then k:=k+1; Writeln('Кол-во элементов больше A и кратные 5 = ',k); Writeln('Сумма элементов с нечетными индексами: ',s); END.