Массивы: найти среднее значение элементов с нечетными индексами

Program pr1;
const
   n=30;
type
   arr= array[1..n] of integer;
var
  a,b,c: arr;
  min,sr:real;
  i,j,temp,kol:integer;
Begin
  randomize;
for i:=1 to n do
     a[i]:=random(113)-37;
    
    
j:=1;                      // массив б
for i:=1 to n do begin
   if (i mod 2 = 0) and (a[i] > 0) then begin
      b[j]:=a[i];
      inc (j);
  end;
end;
kol:=0;
for i:=1 to j-1 do begin                //среднее б
   if i mod 2 = 1  then begin
      sr:=sr+b[i];
      kol:=kol+1;
    end;
end;
sr:=sr/kol;                     
 
j:=1;
min:=1e6;
for i:=1 to n do                   // массив с
  if a[i]<min then begin
  min:=a[i];
  temp:=i;
  end;
j:=1; 
for i:=temp+1 to n do begin
  c[j]:=a[i];
   inc (j);
end;
 
 
writeln('A       B        C');
 
for i:=1 to n do begin
     writeln(a[i],'      ',b[i],'      ', c[i]);
end;
     
writeln('------------------------------');
write('A Min=',min:6:0,' Nomer =',temp);
writeln;
writeln('------------------------------');
Write('Sred B=',sr:6:2);
 
readln;
end.