Pascal Массивы

[RalphStormy]

Есть код, никак не могу понять задание.

Program SRARIFM;
   Var
   N, K, I: integer;
   S, SA, a, b: real;
   x: array [1..50] of real;
begin
write ('Введите границы интервала [a, b] ');
readln (a, b);
write ('Введите кол-во элементов в массиве ');
readln (N);
{Организация ввода значений элементов массива Х}
for i:=1 to N do
begin
write ('Введите х [', i, '] ');
readln (x[i])
end;
{Расчетная часть программы}
S:=0;
K:=0;
For i:=1 to N do
If (x[i]>=a) and (x[i]<=b)
then
  begin
S:=s+x[i];
K:=k+1
                    End;
             if k=0
             then
              SA:=0
            Else SA:=S/K;
{Вывод результата подсчета} 
     writeln ('Средне арифметическое элементов, принадлежащих промежутку [', a:7:3, ',', b:7:3, ']=', SA:7:3); 
readln 
end.

Условие задания : Вычислить среднее арифметическое чисел, небольших А и стоящих на четных местах; подсчитать количество ненулевых чисел.

[digitalis]

Задание ясное. Прога, сдутая откуда-то, выполняет немножко другое. Нужно её допилить? Если включить бошку, то запросто. Ну а если включать нечего, то:

write ('Введите граничное значение а ');
readln (a);
............................
For i:=1 to (N div 2)  do
If (x[i+i]<=a) then
  begin
      S:=s+x[i+i];
      K:=k+1
  end;
.....................................
writeln ('Средне арифметическое элементов, удовлетворяющих условию: ', S:7:3);

Ну и посчитать количество ненулевых - таким же макаром. Можно в одном и том же цикле, но от 1 до N, используя
if (i mod 2) = 0

............................
For i:=1 to N  do
begin
   if x[i] <> 0 then Inc (N0) ;
   if (x[i]<=a) and ((i mod 2) = 0) then
     begin
        S:=s+x[i];
        K:=k+1
    end;
end;