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