помогите пожалуйста с заданием, очень срочно, прошу, решать через паскаль

[вчвыв]

Массив состоит из 15 целых чисел в промежутке от -20 до 25 сформированый при помощи
randomize Найти средне арифметическое всех чётных элементов массива, стоящих на
нечётных местах

[newerow1989]

var p: array[1..15] of integer;
    i, c: integer;
    sr: real;
begin
   Randomize;
   for i:=1 to 15 do
   begin
      p[i]:=-20+Random(45);
      Write(p[i]:3, '  ');
   end;
   Writeln;
   Writeln;
   c:=0;
   sr:=0;
   for i:=1 to 15 do
      if (i mod 2=1) and (p[i] mod 2=0) then
      begin
         sr:=sr+p[i];
         Inc(c);
      end;
   if c=0 then
      Writeln('NO NUMBER!') else
   begin
      sr:=sr/c;
      Writeln(sr:5:8);
   end;
   Readln;
end.