Даны два пятизначных числа. Определить, есть ли в их десятичной записи одинаковые цифры- Pascal(Паскаль)

uses crt;
var a,b:longint;
    ma,mb:set of byte;
    k:byte;
begin
clrscr;
repeat
writeln('Введите 2 пятизначных числа:');
readln(a,b);
until(a>=10000)and(a<=99999)and(b>=10000)and(b<=99999);
ma:=[];
while a>0 do
 begin
  k:=a mod 10;
  ma:=ma+[k];
  a:=a div 10;
 end;
mb:=[];
while b>0 do
 begin
  k:=b mod 10;
  mb:=mb+[k];
  b:=b div 10;
 end;
if ma*mb<>[] then write('Есть!')
else write('Нет!');
readln
end.