Дано трёхзначное число. Определить, входит ли в него цифра 3

function inNumber(n, a : Integer) : Boolean;
var r : Boolean;
begin
  r := n = a;
  while n <> 0 do
    begin
      r := r or (n mod 10 = a);
      n := n div 10;
    end;
  inNumber := r;
end;
 
var a, n : Integer;
begin
  Write('число = '); ReadLn(n);
  WriteLn('цифра 3 входит в число = ', inNumber(n, 3));
  Write('цифра a = '); ReadLn(a);
  if (a < 0) or (a > 9) then begin WriteLn('Это не цифра!'); Halt; end;
  WriteLn('цифра ', a, ' входит в число = ', inNumber(n, a));
end.

procedure cifra(a,b:integer);
begin
if(a mod 10=b)or(a div 10 mod 10=b)or(a div 100=b)then
writeln('Цифра ',b,' есть в числе')
else writeln('Цифры ',b,' нет в числе')
end;
var n,a:integer;
begin
repeat
write('Введите натуральное трехзначное число n=');
readln(n);
until (n>99)and(n<1000);
repeat
write('Введите цифру a=');
readln(a);
until a in [0..9];
cifra(n,3);
cifra(n,a)
end.