В Паскале пожалуйста. Для N вводимых с клавиатуры чисел определить количество четных чисел и сумму нечетных чисел.

Var n, d, i, c, u: integer;
begin
write(n = );
readln(n);
for i:=1 to n do
begin
readln(d);
if d mod 2 = 0 then c:=c+1 else u:=u+1;
end;
writeln(Четных , c);
writeln(Нечетных , u)
;end.