Найти произведение цифр числа - Pascal ABC (12885)

var
    numb: LongInt;
    m: LongWord;
    a, temp: 0..9;
    aa:string;
    flag: Boolean;
begin
    Write('Введите число: '); ReadLn(numb);
    Write('Введите цифру А: '); ReadLn(a);
    m := 1; numb := Abs(numb); flag := False;
    repeat
        temp := numb mod 10;
        m := m * temp;
        flag := flag Or (a = temp);
        numb := numb div 10;
    until ((numb = 0) Or (m = 0));
    WriteLn('Произведение цифр: ', m);
    if flag then aa:=' ' else aa:=' не ';
    WriteLn('Цифра ', a,aa, 'присутствует');
end.