Подсчитать количество чётных элементов массива, заданного датчиком случайных чисел. паскаль

Сам делай , вот начало programm h; конец сам думай

//Pascal
var A, B, C, max: real;
begin
    readln (A, B, C);
    if A >= B then
      max := A
    else
      max := B;  
    if A > max then
      max := C;
    writeln(max - A,, max - B, , max - C);
end.

Это какой класс, я отвечаю только за 5-6 классы

var ourbox: array [0..7] of integer;      i: integer; 
begin   for i:=0 to 7 do      begin         ourbox[i]:=Random(1,8);      end;      for i:=0 to 7 do      begin         Writeln(ourbox[i]);      end;end.