Создать два множества, содержащие числа больше 5 и меньше 5.

{Задано множество целых чисел C. Создать два множества, содержащие числа 
больше 5 и меньше 5. Помогите пожалуйста.}
var
  a, b, c: set of byte;
  x, i: byte;
 
begin
  randomize;
  a := [];  b := [];  c := [];
  for i := 0 to 255 do
    include(c, random(255));  
  for i := 0 to 255 do
  begin
    if (i in c) and (i < 5) then
      include(a, i);
    if (i in c) and (i > 5) then
      include(b, i);      
  end;
  writeln('Set C: ');
  for i := 0 to 255 do  
    if i in c then
      write(i, ' ');
  writeln;
  writeln('Set A: ');
  for i := 0 to 255 do  
    if i in a then
      write(i, ' ');      
  writeln;
  writeln('Set B: ');
  for i := 0 to 255 do  
    if i in b then
      write(i, ' ');      
  
end.

var
  a, b, c: set of byte;
  x, i: byte;
procedure v(s:string;x:set of byte;i1,i2:byte);
var i:byte;
begin
 writeln(s);
 for i:= i1 to i2 do if i in x then write(i,' ');
 writeln
end; 
begin
  randomize;
  a := [];  b := [];  c := [];
  for i := 0 to 10 do 
   if random(2)=0 then include(c, random(255))
                  else include(c, random(5));
  v('C:',c,0,255);
  a:=c*[0..4];
  b:=c-a;
  v('A:',a,0,4);
  v('B:',b,5,255);
end.