Изменить задание множества

type mn= set of byte;
var
A,B:mn;
procedure vvod(var BB:mn);
var i:byte;
    AA:mn;
begin
   AA:=[24,18,5,9,10,11,12,15,6];
   BB:=[];
   for i:=1 to 200  do
                 if(i in AA) and (i mod 3=0) then BB:=BB+[i];
end;
procedure print(var BB:mn);
var i:byte;
begin
 for i:=1 to 200 do
                if(i in BB) then write(i, ' ');
                end;
 
begin
VVOD(B);
print(B);
end.

type
  mn = set of byte;
 
var
  B: mn;
 
procedure vvod(var BB: mn);
var
  x: integer;
begin
  BB := [];
  repeat
    read(x);
    if ((x >= 10) and (x <= 200)) then
      BB := BB + [x];
  until x < 0; // выход - отрицательное число
  writeln('Исходное множество: ');
  for x := 0 to 255 do
    if(x in BB) then 
      write(x, ' ');
  writeln;      
end;
 
procedure print(BB: mn);
var
  i: byte;
begin
  writeln('Все элементы кратные 3 этого множества: ');
  for i := 255 downto 0 do
    if(i in BB) and (i mod 3 = 0) then 
      write(i, ' ');
end;
 
begin
  VVOD(B);
  print(B);
end.

type mn= set of byte;
procedure vvod(var BB:mn);
var n,i,x:byte;
begin
repeat
write('Введите мощность исходного множества от 10 до 100 n=');
readln(n);
until n in [5..100];
BB:=[];
for i:=1 to n do
 begin
  repeat
   write('Элемент ',i,'=');
   readln(x);
  until(x in [0..255])and not(x in BB);
  BB:=BB+[x];
 end;
end;
procedure print(BB:mn;k:byte;s:string);
var i:byte;
begin
writeln(s);
if k=0 then
 begin
  for i:=0 to 255 do
  if i in BB then write(i:4)
 end
else
 begin
  if BB=[] then writeln('Множество пустое')
  else
   begin
    for i:=198 downto 12 do
    if i in BB then write(i:4);
   end;
 end;
writeln;
end;
procedure new_mnz(BB:mn;var AA:mn);
var i:byte;
begin
AA:=[];
for i:=12 to 198 do
if (i in BB)and(i mod 3=0) then AA:=AA+[i];
end;
var a,b:mn;
begin
vvod(a);
print(a,0,'Исходное множество');
new_mnz(a,b);
print(b,1,'Множество кратных 3 в диапазоне [10..200]');
end.