Дана последовательность целых чисел, заканчивающихся нулём. Посчитать кол-во четных и

Var
sum, count, r, i: integer;
begin

repeat
write ('Введите число: ');
readln (r);
inc (sum, r);
inc (i);
if (r mod 2)lt;gt;0 then inc (count);
until r=0;

writeln ('-------------------------');
writeln ('Сумма частей: ', sum);
writeln ('СА: ', sum/i);
writeln ('Нечетных элементов: ', count);
writeln ('Четных частей: ', i-count);
end.