Ввести два двузначных числа. Вывести цифру (цифры), если они содержится в обоих числах

var
  i, x, y: integer;
  sx, sy: string;
  ch: char;
  qz, qx, qy: set of char;
 
begin
  qx := [];
  qy := [];
  qz := [];
  write('Введите 1-е число: ');
  readln(x);
  write('Введите 2-е число: ');
  readln(y);
  str(x, sx);
  str(y, sy);
  for i := 1 to length(sx) do
    include(qx, sx[i]);
  for i := 1 to length(sy) do
    include(qy, sy[i]);
  qz := qx * qy;  
  for i := 0 to 255 do
    if chr(i) in qz then
      write(chr(i), ' ');
end.

var
  x, y: byte;
  m: set of byte;
 
begin
  writeln('Введите два положительных двузначных числа.');
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  m := [x div 10, x mod 10] * [y div 10, y mod 10];
  write('Общие цифры:');
  if m = []
    then write(' не найдены')
    else for x := 0 to 9 do if x in m then write(x:2);
  readln
end.

type
  setb = set of byte;
 
procedure comm(c: char; var ma: setb; const mb: setb);
var
  a: longint;
  d: byte;
begin
  write(c, ' = ');
  readln(a);
  a := abs(a);
  repeat
    d := a mod 10;
    if d in mb then include(ma, d);
    a := a div 10
  until a = 0
end;
 
var
  i: integer;
  m, my: setb;
 
begin
  writeln('Введите два целых числа.');
  comm('x', my, [0..9]);
  comm('y', m, my);
  write('Общие цифры:');
  if m = []
    then write(' не найдены')
    else for i := 0 to 9 do if i in m then write(i:2);
  readln
end.

type TDigits = set of 0..9;
function Digits(n: Longint): Word;
var r: TDigits;
begin
  n:=Abs(n); r:=[];
  repeat Include(r,n mod 10); n:=n div 10;
  until n=0;
  Digits:=Word(r);
end;
var m, n: Longint; r: Word; i: Integer;
begin
  Write('m n: '); ReadLn(m,n);
  r:=Digits(m) and Digits(n);
  Write('Общие цифры:');
  if r=0
  then Write(' <отсутствуют>')
  else for i:=0 to 9 do if i in TDigits(r) then Write(i:2);
end.

 if s[i] in ['a'..'z'] then ...;

function Digits(n: Longint): Word;
var r: Word;
begin
  n:=Abs(n); r:=0;
  repeat r:=r or 1 shl (n mod 10); n:=n div 10;
  until n=0;
  Digits:=r;
end;
var m, n: Longint; r: Word; i: Integer;
begin
  Write('m n: '); ReadLn(m,n);
  r:=Digits(m) and Digits(n);
  Write('Общие цифры:');
  if r=0
  then Write(' <отсутствуют>')
  else for i:=0 to 9 do if 0<>r and (1 shl i) then Write(i:2);
end.