Даны 4 целых числа. найти сумму и количество чётных чисел то есть написать программу

Const
    handsfree = false;
    nmax = 4;
    random_min = -50;
    random_max = 50;

var
    a: array[1..nmax] of integer;
    i, n, j: integer;
    sum, product, harmonic: real;
    k: integer;

begin
    {ввод массива}
    n := nmax;
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(random_max - random_min) + random_min;
            write(a[i], ' ');
        end
        else
            readln(a[i]);
    end;
    writeln();
    
    {подсчет элементов}
    k := 0;
    for i := 1 to n do
        if a[i] mod 2 = 0 then
            k := k + 1;
    writeln('quantity = ', k);
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        sum := sum + a[i];
    writeln('sum = ', sum);
end.