Даны три натуральных числа.Напечатать те цифры,которые есть в записи первого и второго числа,но нет в записи третьего

var
  x:longint;
  i,d:0..9;  
  m,tmp:set of 0..9;
begin
  m:=[];
  for i:=1 to 3 do
    begin
      repeat
        write(i,' натуральное число=');
        readln(x);
      until x>0;
      tmp:=[];
      while x<>0 do
        begin
          d:=x mod 10;
          if not(d in tmp) then
            tmp:=tmp+[d];
          x:=x div 10;
        end;
      case i of
        1: m:=m+tmp;
        2: m:=m*tmp;
        3: m:=m-tmp;
      end;
    end;
  writeln('Цифры, кот. есть в 1 и 2, но нет в 3:');
  for i:=0 to 9 do
    if i in m then
      write(i:2);
end.

uses crt;
 
type
 
baseType = 0..9;
 
number = record
ar: array [1..10] of baseType;
used: integer;
end;
 
var
n: longint;
a,b,c,tmp: number;
 
{---------------------------------------------------------------}
procedure razdelenie(var a: number);
begin a.used:=0;
while n > 0 do
 begin
 inc(a.used);
 a.ar[a.used]:=n mod 10;
 n:=n div 10;
 end;
end;
{---------------------------------------------------------------}
procedure find_common;
var i,j: integer;
begin tmp.used:=0;
for i:=1 to a.used do
 for j:=1 to b.used do
  if b.ar[j] = a.ar[i] then with tmp do
   begin
   inc(used);
   ar[used]:=a.ar[i];
   end;
end;
{---------------------------------------------------------------}
procedure find_differ;
var i,j: integer;
    bool: boolean;
begin
for i:=1 to tmp.used do
 begin
 bool:=true;
 for j:=1 to c.used do
  if tmp.ar[i] = c.ar[j] then bool:=false;
 if bool then writeln(tmp.ar[i]);
 end;
end;
{---------------------------------------------------------------}
 
begin clrscr;
write('Chislo 1 = '); readln(n); razdelenie(a);
write('Chislo 2 = '); readln(n); razdelenie(b);
write('Chislo 3 = '); readln(n); razdelenie(c);
find_common;
writeln('------------');
find_differ;
readkey; end.