Получить среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
var f:boolean;
procedure Vvod(var a:mas;var n:byte);
var i:byte;
begin
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
a[i]:=-25+random(100);
f:=true;
end;
procedure Vyvod(a:mas;n:byte);
var i:byte;
begin
if not f then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1');
  readln;
  exit;
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i]:4);
readln;
end;
procedure p1(a:mas;n,k:byte;var s1,s2:integer);
var i:byte;
begin
if not f then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1');
  readln;
  exit;
 end;
clrscr;
for i:=1 to n do
write(a[i]:4);
writeln;
repeat
write('Введите номер элемента для подсчета сумм k=[1..',n,'] k=');
readln(k);
until k in [1..n];
s1:=0;
s2:=0;
for i:=1 to k do
s1:=s1+a[i];
for i:=k+1 to n do
s2:=s2+a[i];
writeln('Сумма элементов от номера 1 до номера ',k,'=',s1);
writeln('Сумма элементов от номера ',k+1,' до номера ',n,'=',s2);
if s1>s2 then writeln('Первая сумма больше второй')
else if s2>s1 then writeln('Вторая сумма больше первой')
else writeln('Суммы равны');
readln;
end;
procedure p2(a:mas;n:byte;var sr:real);
var i,k:byte;
begin
if not f then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1');
  readln;
  exit;
 end;
clrscr;
for i:=1 to n do
write(a[i]:4);
writeln;
sr:=0;
k:=0;
for i:=1 to n do
if(a[i] mod 2=0)and odd(i) then
 begin
  sr:=sr+a[i];
  k:=k+1;
 end;
if k=0 then writeln('Нет четных элементов на нечетных местах')
else
 begin
  sr:=sr/k;
  writeln('Среднее арифметическое четных элементов на нечетных местах=',sr:0:2);
 end;
readln
end;
 
var a:mas;
    n,k:byte;
    s1,s2:integer;
    sr:real;
    c,w:char;
begin
randomize;
f:=false;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-ввод массива');
writeln('2-вывод массива');
writeln('3-Задача 1-Какая сумма элементов больше');
writeln('4-Задача 2-Среднее арифметическое');
writeln('Другое-выход');
readln(c);
case c of
'1':Vvod(a,n);
'2':Vyvod(a,n);
'3':p1(a,n,k,s1,s2);
'4':p2(a,n,sr);
else begin
     writeln('Вы действительно хотите покинуть программу? Да-Y/y другое нет');
     readln(w);
     if UpCase(w)='Y' then exit
     end;
end;
until not (c in ['1'..'4'])and(w='Y');
end.