Question

Составил программу под : даны два натуральных числа m и n проверить есть ли в записи числа m цифры числа n, но на экран не выводится ответ, найти ошибку. var n,m,n1: integer; f: boolean; begin readln (n,m); f: =false; while n> 0 do begin n1: =n; while n1> 0 do begin if m mod 10=n1 mod 10 then f: =true; n1: =n1 div 10; end; n1: =n1 div 10; end; if f=true then write('да') else writeln ('нет'); end.