Дано 4-х значное число, найти что больше произведение сотен и десятков или произведение тысяч и единиц

Var n:integer; 
pro, sum:integer; 
begin 
write('Введите число: '); readln(n); 
pro:=1; sum:=0; 
while n>0 do 
begin 
pro:=pro*(n mod 10); 
sum:=sum+(n mod 10); 
n:=n div 10; 
end; 
writeln('Произведение = ', pro); 
writeln('Сумма = ', sum); 
end.