Помогите Отыскать количество четных чисел в массиве А[10], состоящем из случайных

program n_1;

var a: array [1..10] of integer; i, s, n: integer;

begin

   randomize;

   n:=0; s:=0;

   for i:=1 to 10 do begin

       a[i]:=random(100);

       if a[i] mod 2 = 0 then begin n:=n+1; s:=s+a[i]; end;

   end;

   writeln('Количество четных чисел одинаково ', n, ', а их сумма ', s);

   for i:=1 to 10 do write(a[i], ' ');

end.