Определить множество, содержащее наибольшее количество элементов, которые есть в других множествах

  program lab3;
    type mnj=set of byte;
      var
        x:byte;
        i,n:integer;
        a:mnj;
        b:array[1..100]of mnj;
  Begin
    Write('n ');read(n);{Задаем количество множеств}
    for i:=1 to n do begin{Заполняем множества до нажатия 1}
       write('x',i,' ');
       b[i]:=[];
        repeat
          repeat
          readln(x);
          until x in [0..255];
            b[i]:=b[i]+[x];
        until x=1;
    end;
    for i:=1 to n do{Выводим все множества}
        writeln('Множество ',i,' ',b[i]);
        a:=b[1];
          
    end.

type mnj=set of byte;
var b:array[1..20]of mnj;
    n,m,i,j,k,p,x,mx,imx:byte;
begin
randomize;
repeat
write('Количество множеств от 3 до 20 n=');
readln(n);
until n in [3..20];
repeat
write('Маскимальная мощность множеств от 3 до 20 m=');
readln(m);
until m in [3..20];
writeln('Множества');
for i:=1 to n do
 begin
  b[i]:=[];
  for j:=1 to m do
   begin
    x:=random(100);
    b[i]:=b[i]+[x];
   end;
  write(i:2,')');
  for k:=1 to 100 do
  if k in b[i] then write(k:3);
  writeln;
 end;
mx:=0;
imx:=0;
for i:=1 to n do //перебираем все множества
 begin
  k:=0;//есть в других 0
  for j:=1 to 100 do
  if j in b[i] then //если число есть в данном множестве
   begin
    x:=1;
    p:=0;
    while(x<=n)and(p=0)do //ищем его в других
    if(x<>i)and(j in b[x]) then inc(p)//если есть
    else inc(x);
    if p=1 then inc(k);//считаем
   end;
  if k>mx then //если больше текушего максимума
   begin
    mx:=k; //это максимум
    imx:=i; //его номер
   end;
 end;
writeln('Наибольшее количество элементов , которые есть в других множествах');
writeln('содержит множество номер ',imx,' их количество=',mx)
end.