Определить входит ли цифра m в четырехзначное число n(написать программму)

Program prim;
uses 
   crt;
var 
   m,n:integer;
begin
   writeln(Введите цифру m); 
   readln(m); 
   writeln(Введите четырёхзначное число n); 
   readln(n);
   if (n mod 10=m) or (n div 10 mod 10=m) or (n div 100 mod 10=m) or (n div 1000=m)   then 
      write (Цифра ,m, входит в число ,n) 
  else 
      write (Цифра ,m, НЕ входит в число ,n);
end.