Дано натуральное число. Верно ли, что в данном числе нет цифры A? Цифра A вводится с клавиатуры — Pascal(Паскаль)

uses CRT;
VAR
 Num: Longint;
 A, code: Integer;
 Contains: Boolean;
 Ch: Char;
 S : String;
BEGIN
  Write('Введите целое число: ');
  ReadLn(Num);
  Write('Введите цифру: ');
  repeat
   ch := ReadKey;
  until (ch >= '0') and (ch <= '9');
  VAL(ch, A, code);
  WriteLn(A);
  {Первый способ через преобразование числа в строку}
  Str(Num, S);
  WriteLn('1) Верно ли, что цифры ',A,' нет в числе ',Num,': ',
     POS(ch, S) = 0);
  {Второй способ через анализ цифр с помощью операции вычисления остатка
   от деления MOD}
  contains := FALSE;
  Write('2) Верно ли, что цифры ',A,' нет в числе ',Num,': ');
  while Num <> 0 do
  begin
   if (Num mod 10) = A then begin
      contains:= TRUE; Break {Немедленный выход из цикла WHILE}
   end;
   Num := Num div 10;
  end;
  WriteLn(NOT contains);
END.