Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n

type SetOfByte = set of byte;
 
procedure SplitIntegerToSet(const V : word; var rSet : SetOfByte);
var  N : word;
begin
   N := V;
   rSet := [];
   repeat
      Include(rSet, N mod 10);
      N := N div 10;
   until N=0;
end;
 
var n,m : word;
  nDigits, mDigits, commonDigits : SetOfByte;
  i : byte;
begin
  WriteLn('Введите N и M');
  Readln(n,m);
  SplitIntegerToSet(n, nDigits);
  SplitIntegerToSet(m, mDigits);
  commonDigits := nDigits * mDigits;
  if commonDigits = [] then WriteLn('Совпадающих цифр нет')
  else begin
     Write('есть совпадающие цифры. Это цифры (без повторов и в порядке возрастания) : ');
     for i:=0 to 9 do
       if i in commonDigits then Write(i,' ');
     WriteLn;
  end;
  Readln
end.

uses crt;
var m,n:integer;
    mm,mn:set of byte;
begin
clrscr;
repeat
writeln('Введите 2 натуральных числа до 9999');
readln(m,n);
until(m>0)and(m<10000)and(n>0)and(n<10000);
mm:=[];
while m>0 do
 begin
  mm:=mm+[m mod 10];
  m:=m div 10
 end;
mn:=[];
while n>0 do
 begin
  mn:=mn+[n mod 10];
  n:=n div 10
 end;
if mm*mn<>[] then write('В этих числах есть одинаковые цифры')
else write('В этих числах нет одинаковых цифр');
readln
end.

uses Crt;
var
   j,k: integer;
   m,n: string[4];
   i: char;
label 100;
begin
   clrscr;
   writeln('M,N = ?');
   readln(m,n);
   for i:= '0' to '9' do begin
      j:= Pos(i,m);
      k:= Pos(i,n);
      if j*k <> 0 then begin
         writeln('Yes'); goto 100 end
   end;
   writeln('No');
100: readln
end.

i:='0';
k:=0;
while(i<='9')and(k=0) do
if (pos(i,m)*pos(i,n)>0)then k:=1
else inc(i);
if k=1 then writeln('Yes')
else  writeln('No');
readln
end.