Встречается ли цифра в числе... Идеи?

[GreenMan]

Дано число в диапазоне [-1000..1000] и дана цифра от 0 до 9. Определить, встречается ли эта цифра в числе?

Думаю уже второй день, но нормального решения не могу найти... Ведь число может быть и однозначное, и двузначное, и трехзначное, и четырехзначное... Можете помочь? Как написать эту программу?

[whatever]

var
  n:integer;
  cifr:char;  // вахаб, вахаб, сифер, сифер © х\ф "Не шутите с Зоханом" :D
begin
  write('число= ');
  readln(n);
  write('цифра= ');
  readln(cifr);
  if POS(cifr,IntToStr(n))<>0 then
    writeln(cifr,' содержится в ',n)
  else
    writeln(cifr,' не содержится в ',n);
  readln
end.

[Ev[G]eN]

var
  Temp, Chislo, Cifra: Integer;
  Bool: Boolean;
begin
  Bool:=False;
  Chislo:=Random(2001)-1000;
  writeln('Число: ', Chislo);
  write('Цифра: ');
  readln(Cifra);
  Temp:=Abs(Chislo);
  while Temp > 0 do
  begin
    if Cifra = (Temp mod 10) then Bool:=True;
    Temp:=Temp div 10;
  end;
  write('Встречается ли ', Cifra, ' в ', Chislo, '? - ', Bool);
end.

[whatever]

Ev[G]eN, тоже вариант, только randomize забыл, нет смысла крутить цикл после того, как bool стал true, и, так как cifra у тебя integer, а не char, нужно добавить проверку, чтобы не ввели более одной цифры или вообще отрицательное число:

var
  Temp, Chislo, Cifra: Integer;
  Bool: Boolean;
begin
  Bool:=False;
  randomize;
  Chislo:=Random(2001)-1000;
  writeln('Число: ', Chislo);
  write('Цифра: ');
  readln(Cifra);
  while (cifra>9) or (cifra<0) do
    begin
      write('Цифра: ');
      readln(Cifra);
    end;
  Temp:=Abs(Chislo);
  while Temp > 0 do
  begin
    if Cifra = (Temp mod 10) then
      begin
        Bool:=True;
        break;
      end;
    Temp:=Temp div 10;
  end;
  write('Встречается ли ', Cifra, ' в ', Chislo, '? - ', Bool);
  readln
end.