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

type
  tset=set of byte;
 
procedure createset(var aset:tset;num:integer);
var
  i,n:byte;
begin
  i:=0;
  while i<num do begin
    n:=random(41)+10;
    if not (n in aset) then begin
      aset:=aset+[n];
      inc(i);
    end;
  end;
end;
 
procedure writeset(var aset:tset);
var
  i:byte;
begin
  for i in aset do
    write(i,' ');
  writeln;
end;
 
function productset(var aset:tset):longint;
var
  p:longint;
  i:byte;
begin
  p:=1;
  for i in aset do
    p:=p*i;
  productset:=p;
end;
 
var
  k:longint;
  n:integer;
  a,b:tset;
 
begin
  randomize;
  a:=[];b:=[];
  write('введите кол-во элементов множества A : ');
  readln(n);
  createset(a,n);
  writeset(a);
  write('введите кол-во элементов множества B : ');
  readln(n);
  createset(b,n);
  writeset(b);
  a:=a*b;
  write('введите число : ');
  readln(n);
  if a<>[] then begin
    k:=productset(a);
    writeln('произведение чисел входящих в оба множества :');
    writeln(k);
    if n>k then
      writeln('введёное число больше')
    else
      writeln('введёное число меньше');
  end
  else
    writeln('нет чисел входящих в оба множества');
  readln;
end.