1. Короткое решение для числа произвольной длины (на символьной строке)

var
  s:string;
  c:char;
begin
  Write(Введите натуральное число: );
  Readln(s);
  Write(введите искомую цифру: );
  Readln(c);
  if Pos(c,s)gt;0 then
    Writeln(Такая цифра в числе есть)
  else
    Writeln(Такой цифры в числе нет)
end.

Тестовое решение
Введите натуральное число: 43543232
введите искомую цифру: 4
Такая цифра в числе есть

2. Более традиционное решение с целочисленными переменными

var
  s,c:integer;
  brk:boolean;
begin
  Write(Введите натуральное число: );
  Read(s);
  Write(введите искомую цифру: );
  Read(c);
  brk:=false;
  repeat
    if s mod 10=c then brk:=True;
    s:=s div 10
  until brk or (s=0);
  if brk then
    Writeln(Такая цифра в числе есть)
  else
    Writeln(Такой цифры в числе нет)
end.

Тестовое решение
Введите натуральное число: 43543232
введите искомую цифру: 6
Такой цифры в числе нет