Вводится натуральное число n требуется найти сумму четных цифр числа 2) найти количество цифр 2 в числе 3) найти максимальную нечетную цифру в числе ПАСКАЛЬ СРОЧНО!!

{}
var
n : uint64;
sum, count, max: byte;
begin
write (Введите натуральное число: );
readln (n);

repeat
if ((n mod 10) mod 2)=0 then inc (sum, n mod 10)
else if (n mod 10)>max then max:=n mod 10;
if (n mod 10) = 2 then inc (count);
n:=n div 10;
until n=0;

writeln (Сумма четных цифр: , sum);
writeln (Кол-во цифр 2: , count);
if max=0 then writeln (Нет нечетных цифр) else
writeln (Макс. нечетная цифра: , max);
end.