Помогите решить простенькую ЗАДАЧКУ

[Mihael-Vlz]

С помощью массива:
Если кол-во нулей, расположенных на четных местах в массиве C(20) не превышает заданного значения, то вычислить сумму значений элементов с нечетным индексом. Распечатать результаты с комментариями.

Заранее признателен.

[alex_fcsm]

uses crt;
var i,n,sum:integer;
    a:array[1..20] of byte;
begin
clrscr;
randomize;
for i:=1 to 20 do
 begin
  a[i]:=random(2);
  write(a[i],' ');
 end;
writeln;
writeln('Input kol-vo 0');
readln(n);
sum:=0;
for i:=1 to 20 do
 if i mod 2=0 then if a[i]=0 then inc(sum);

if sum<=n then begin
                 sum:=0;
                 for i:=1 to 20 do
               if i mod 2=1 then sum:=sum+a[i];
               writeln('Summa: ',sum);
               end
  else writeln('0: ',sum);

end.