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