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

uses
  crt;
const
  n=10;
var
  x1,x2,x3:set of byte;
  y,z:set of byte;
  i,q,w:longint;
  max,n1,n2,n3:integer;
begin
  clrscr;
  randomize;
  x1:=[]; x2:=[]; x3:=[];
  { Формирование 1-го множества }
  q:=random(n)+n div 2;
  w:=q;
  q:=1;
  while (w>q-1) do
    begin
      i:=random(255)+1;
      if not(i in x1) then
        begin
          x1:=x1+[i];
          inc(q);
        end;
   end;
  { Вывод 1-го множества }
  writeln('1-e множество: ');
  n1:=0;
  for i:= 0 to 255 do
    if i in x1 then
      begin
        write(i,' ');
        inc(n1);
      end;
  writeln;
  writeln('Число элементов (мощность множества): ',n1);
 
  { Формирование 2-го множества }
  q:=random(n)+n div 2;
  w:=q;
  q:=1;
  while (w>q-1) do
    begin
      i:=random(255)+1;
      if not(i in x2) then
        begin
          x2:=x2+[i];
          inc(q);
        end;
   end;
  { Вывод 2-го множества }
  writeln('2-e множество: ');
  n2:=0;
  for i:= 0 to 255 do
    if i in x2 then
      begin
        write(i,' ');
        inc(n2);
      end;
  writeln;
  writeln('Число элементов (мощность множества): ',n2);
 
  { Формирование 3-го множества }
  q:=random(n)+n div 2;
  w:=q;
  q:=1;
  while (w>q-1) do
    begin
      i:=random(255)+1;
      if not(i in x3) then
        begin
          x3:=x3+[i];
          inc(q);
        end;
   end;
  { Вывод 3-го множества }
  writeln('3-e множество: ');
  n3:=0;
  for i:= 0 to 255 do
    if i in x3 then
      begin
        write(i,' ');
        inc(n3);
      end;
  writeln;
  writeln('Число элементов (мощность множества): ',n3);
 
  if (n1>=n2) and (n1>=n3) then
    writeln('Первое множество содержит наибольшее количество элементов = ',n1)
  else
    if n2>=n3 then
      writeln('Второе множество содержит наибольшее количество элементов = ',n2)
    else
      writeln('Третье множество содержит наибольшее количество элементов = ',n3);
  readln;
end.

const sc=3; rep1=10; rep2=30;
type TType=Byte;
var
  x: array [1..sc] of set of TType;
  n: array [1..sc] of Integer;
  i, j, m: Integer;
begin
  Randomize;
  for i:=1 to sc do
    for j:=1 to rep1+Random(rep2) do
      Include(x[i],Low(TType)+Random(High(TType)-Low(TType)+1));
  for i:=1 to sc do begin
    WriteLn('Множество ',i,':');
    for j:=Low(TType) to High(TType) do 
      if j in x[i] then begin
        Inc(n[i]); Write(j:4);
      end; WriteLn;
    WriteLn('Количество элементов ',n[i]); WriteLn;
  end;
  for i:=1 to sc do if n[i]>m then m:=n[i];
  Write('Максимальное количество в:');
  for i:=1 to sc do if n[i]=m then Write(' ',i); WriteLn;
end.

var
  e: TType;
  s: set of TType;
...
  s:=[];
  while not SeekEOLn do begin
    Read(e); Include(s,e);
  end; ReadLn;
...