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

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.