!!!даю 35 баллов!!!Последовательность заканчивается 0, определить сумму четных чисел, кол-во

Var
    s, n, a : integer;
begin
    a := 1;
    s := 0;
    n := 0;

    repeat
        readln(a);
        if a lt;gt; 0 then begin
            if a mod 2 = 0    then s += a
                            else n += 1;
            if a lt; 0 then
                writeln('Отрицательное');
        end
    until a = 0;
    
    writeln('Сумма четных = ', s);
    writeln('Количество нечетных = ', n)
end.