Водится 2 числа, вывести сумму цифр первого, если оно больше второго и произведение четных цифр второго числа в противном случае(pascal)

Предыдущий
вопрос Следующий
вопрос

program SumOrProduct;

var
num1, num2, sum, product, remainder: integer;

begin
writeln('Введите первое число:');
readln(num1);
writeln('Введите второе число:');
readln(num2);

sum := 0;
while num1 > 0 do
begin
remainder := num1 mod 10;
sum := sum + remainder;
num1 := num1 div 10;
end;

product := 1;
while num2 > 0 do
begin
remainder := num2 mod 10;
if remainder mod 2 = 0 then
product := product * remainder;
num2 := num2 div 10;
end;

if sum > product then
writeln('Сумма цифр первого числа: ', sum)
else
writeln('Произведение четных цифр второго числа: ', product);

end.