Решить в паскале найти произведение цифр четырёхзначного числа

Var
  p: longint;
  k, m, n, i: integer;

begin
  Write('Введите целое четырехзначное число: ');
  Readln(n);
  n := Abs(n); { вдруг отрицательное введут? }
  p := 1;
  for i := 1 to 4 do
  begin
    m := n mod 10;
    n := n div 10;
    p := p * m
  end;
  Writeln('Произведение цифр в числе равно ', p);
end.

Тестовое решение:

Введите целое четырехзначное число: 1234
Произведение цифр в числе равно 24