Ну тут два варианта или преобразовать оба числа в строки, или последовательным делением по модулю на 10
типа
Код:
program a;
var m1,m2,d1,d2:Integer;
begin
write('Введите первое число : ');
readln(d1);
write('Введите второе число : ');
readln(d2);
while (d1<>0) and (d2<>0) do
begin
m1 := d1 mod 10;
m2 := d2 mod 10;
if m1=m2 then
begin
writeln('Одинаковый разряд есть');
break;
end;
d1 := d1 div 10;
d2 := d2 div 10;
end;
readln;
end.
правда желательно бы еще предусмотреть обработку особого случая, когда оба числа изначально равны нулю.