Дан массив Q(15) , заполненный числами [0,100].Найдите количество чётных чисел и их сумму помогите, пожалуйста !!

// дан массив Q(15) , заполненный числами [0,100].Найдите количество чётных чисел и их сумму
Var Q    : array [1..15] of byte;
    i,n  : byte;
    s    : word;
begin
  randomize;
  for i:=1 to 15 do
    begin
      Q[i]:=random(101); //заполняем массив случайными числами
    end;
  for i:=1 to 15 do
    begin
      if (Q[i]mod 2=0) then //определяем четные чиcла
        begin
          n:=n+1;           //высчитываем их количество
          s:=s+Q[i];        //и сумму
        end;
    end;
writeln (в данном массиве ,n, четных чисел. Их сумма равна ,s)
end.

Первый и второй циклы можно объединить (я так делал для наглядности)