найти частное произведений четных и не четных цифр четырехзначного числа n

Есть книжка такая, "Песни о Паскале". Глава 47.

Нужно разложите число на цифры и вычислить соответствующие произведения,
flag: false; m1: = 1; m2: = 1;
while N <> 0 do begin
if flag then m1:= m1*(N mod 10) else m2:= m2*(N mod 10);
flag:= not flag;
N:= N div 10;
end;
if m1<>0 then Writeln(m2 div m1) else Writeln('Бесконечность');

Видела уже такой вопрос где-то года три назад.