Определить входит ли цифра 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.