Задача на множества: из каждого числа удалить цифру, которая входит в каждое число

program vadik_mena_kormit;
 
var
  a: array [1..10] of byte;
  m1: set of byte;
  i, k, x, y, el, tof,kol: byte;
 
 
procedure check(var el: byte);
var
  st: string;
  j: integer;
begin
  st := IntToStr(el);
  for j := 1 to length(st) do
  begin
    include(m1, StrToInt(st[1]));
    Delete(st, 1, 1);
  end;
end;
 
 
 
 
function obed(var tof: byte): integer;
 
var
  st: string;
  i, j: integer;
  b: array [1..10] of integer;
begin
 
  st := IntToStr(tof);
  
  for i := 1 to length(st) do
  begin
    b[i] := StrToInt(st[1]);
    Delete(st, 1, 1);
  end;
  
 
 
end;
 
 
begin
  write('Количество элементов в массиве =');
  read(y);
  
  writeln('Введите элементы массива');
  
  for i := 1 to y do
  begin
    write('a[', i, ']=');
    readln(a[i]);
  end;
  
  el := a[1];
  
  Check(el); 
  
   
  for i := 1 to y do
  begin
    tof := a[i];
    kol:=kol+Obed(tof);
  end;
      writeln(kol);
  
end.

uses crt;
type
  Tmasstr = array [1..10] of string;
  Tmasint = array [1..10] of integer;
  Tmnog = set of '0'..'9';
  Tmasmnog = array [1..10] of Tmnog;
  
var
  i,x: integer;
  masint: Tmasint;
  masstr: Tmasstr;
  cifra:Tmnog;
  masmnog: Tmasmnog;
 
function IntToMnog(ps: string) : Tmnog;
var
  i:integer;
begin
  Result:=[];
  for i:=1 to Length(ps) do
    begin
      Include(Result,ps[i]);
    end;
end;
 
procedure DeleteNumber(var pmasstr:Tmasstr; pcifra:Tmnog);
var
  i,j: integer;
  s,a: string;
begin
  for i:=0 to 9 do
    begin
      Str(i,a);
      if (a[1] in cifra) then
        break;
    end;
    
  Writeln('Povtoryauschayasya cifra: ',a);
  
  for i:=1 to 10 do
    begin
      s:=pmasstr[i];
      for j:=1 to length(s) do
        begin
          if s[j]=a[1] then
            Delete(s,j,1);
        end;
      pmasstr[i]:=s;
    end;
end;
 
Begin
  for i:=1 to 10 do
    begin
      Write('a[',i,'] =');
      readln(masint[i]);
      Str(masint[i],masstr[i]);
      masmnog[i]:=IntToMnog(masstr[i]);
    end;
    
  Write('Ishodniy mfssiv: ');
  for i:=1 to 10 do
    write(masint[i]:4);
  writeln;
 
  cifra:=masmnog[1];
  
  for i:=2 to 10 do
    begin
      cifra:=cifra*masmnog[i];
    end;
 
  if cifra<>[] then
    begin
      DeleteNumber(masstr,cifra);
    end;
 
  for i:=1 to 10 do
    Val(masstr[i],masint[i],x);
    
  Write('Konechniy mfssiv: ');
  for i:=1 to 10 do
    write(masint[i]:4);
  
End.