Найдите среднее арифмитическое нечентых элементов массива с нечетными индексами

Program n1;
Const n=10;
Var a:array[1..n] of integer;
    i,k:integer;avg:real;
Begin
 Randomize;
 for i:=1 to n do
  begin
   a[i]:=random(100);
   writeln(i,' - ',a[i]);
  end;
 avg:=0;
 k:=0;
 for i:=1 to n do
  if (i mod 2<>0)and(a[i] mod 2<>0) then
   begin
    k:=k+1;
    avg:=avg+a[i];
   end;
 if k=0 then writeln('Net nechetnih s nechetnimi indexami')
        else writeln('Srednee= ',avg/k:7:2);
End.

Program n2;
Const n=10;
Var a:array[1..n] of integer;
    i,max:integer;
Begin
 Randomize;
 writeln('Masiv:');
 for i:=1 to n do
  begin
   a[i]:=random(100);
   writeln(i,' - ',a[i]);
  end;
 max:=a[1];
 for i:=1 to n do if a[i]>max then max:=a[i];
 writeln('Obrabotano:');
 for i:=1 to n do
  begin
   if i mod 2 = 0 then a[i]:=max;
   writeln(i,' - ',a[i]);
  end;
End.

Program n3;
Const n=10;
Var b:array[1..n] of integer;
    i,k:integer;
Begin
 Randomize;
 writeln('Masiv:');
 for i:=1 to n do
  begin
   b[i]:=random(100);
   writeln(i,' - ',b[i]);
  end;
 k:=0;
 for i:=2 to n-1 do if (b[i]>b[i-1])and(b[i]>b[+1]) then k:=k+1;
 writeln('Bolshe svoih sosedey: ',k);
End.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
m: array [0..9] of integer;
i,n,k: integer;
r,sum: real;
 
begin
  randomize;
  for i:=0 to 9 do begin
    m[i]:=random(50);
    Writeln(m[i]);
  end;
  Writeln('----------------------------');
  for n:=0 to i do begin
    if (n mod 2<>0) and (m[n] mod 2 <>0) then begin
      k:=k+1;
      sum:=sum+m[n];
    end;
  end;
  r:=sum/k;
  Writeln(r);
  readln;
 
end.