Найти произведение цифр заданного целого четырехзначного числа — Pascal(Паскаль)

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

                                Система тестов
         ╔═══════╦═════════════════════╦═══════════════╤════════════╗
         ║ Номер ║     Проверяемый     ║     Число     │ Результаты ║
         ║ теста ║        случай       ║               │            ║
         ╠═══════╬═════════════════════╬═══════════════╪════════════╣
         ║   1   ║ Число положительное ║ Number = 2314 │   P = 24   ║
         ╟───────╫─────────────────────╫───────────────┼────────────╢
         ║   2   ║ Число отрицательное ║ Number =-1245 │   P = 40   ║
         ╚═══════╩═════════════════════╩═══════════════╧════════════╝
}
 Program DigitsProduct;
   Uses Crt;
   Var Number,      {заданное число}
       i, j, k, l,  {цифры числа}
       P : Integer; {произведение цифр}
 BEGIN ClrScr;
   Write( 'Введите четырехзначное число : ' ); ReadLn(Number);
   Write( 'Цифры числа ' , Number , ' : ' );
   Number:=Abs(Number);

   i := Number div 1000;       Write(i:3);   {первая цифра}
   j := Number div 100 mod 10; Write(j:3);   {вторая цифра}
   k := Number div 10 mod 10;  Write(k:3);   {третья цифра}
   l := Number mod 10;         WriteLn(l:3); {четвертая цифра}

   P := i * j * k * l ;
   WriteLn( 'О т в е т : произведение цифр равно ' , P );
   ReadLn
 END.