Дан массив целых чисел. Найти сумму всех четных элементов стоящих на нечетных местах.

uses crt;
const n=10;
var m:array[1..100]of integer;
    i,s:integer;
begin
randomize;
for i:=1 to n do
begin
m[i]:=-10+random(21);
write(m[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
begin
if (i mod 2=1) and (m[i] mod 2=0) then
s:=s+m[i];
end;
write('s = ',s)
end.

uses crt;
var a:array [1..10] of integer;
    i, sum: integer;
begin
     for i:=1 to 10 do
         begin
              write (' a[',i,']=');       // вводим элементы в массив с клавиатуры
              read (a[i]);
         end;
     sum:=0;
     i:=1;                               // задаем цикл перебора нечетных элементов
      while i<11 do
            begin
            if a[i] mod 2=0 then         // проверяем условие - является ли элемент четным, если да, то
               sum:=sum+a[i];            // добавляем элемент к имеющейся сумме
            i:=i+2;
            end;
      writeln ('Сумма четных элементов, стоящих на нечетных местах =',sum);
end.

uses crt;
var a:array[1..10] of integer;
    s:longint;
    i:integer;
begin
        ClrScr;
        s:=0;
        randomize;
        for i:=1 to 10 do
        begin
               a[i]:=random(100);
        end;
        for i:=1 to 10 do
        begin
                write(a[i]:4);
        end;
        writeln;
        for i:=1 to 10 do
        begin
                if (i mod 2<>0) then //нечётные места массива
                begin
                        if (a[i] mod 2=0) then //если число чётное то
                        s:=s+a[i];
                end;
        end;
        writeln('Сумма всех чётных чисел на нечётных местах=',s);
        readln;
end.