дан массив 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.Первый и второй циклы можно объединить (я так делал для наглядности)