Написать,программу которая запрашивает массив из N целых чисел а затем выводит четные элементы и их количество(на паскале)

var a,i,n:integer;

     s: array [0 .. 99999999] of integer;

     begin

       read (n);

       i:=n;

       for i:=1 to n do begin

         read(s[i]);

       end;

       for i:= 1to n do begin

         if (i mod 2)=0 then begin

           a:=a+1;

           writeln(s[i]);

         end;

       end;

       write(a);

     end.