Цикл, простенькая задача с использованием цикла Опции

[йцукен]

Сдрасте

даны 2 числа , "a" и "b" , нужно найти есть ли в этих 2 - ух числах одинаковые цифры , например
256 и 216 , совпадающими буду 2 и 6 , заранее неизвестно какой длины число , в этом собственно и проблема.
есть идея сделать цикл repeat и в нём делить числа (mod) но как правильно это сделать никак не пойму , помогите пожалуйста

[йцукен]

вот что у меня получилось

Код

program awda;
var a,b:integer;
begin
readln(a);
readln(b);
repeat
a:=a mod 10;
b:=b mod 10;
if a = b then writeln('da');
until a or b <> 0
end.