Вывести на печатать все элементы множеств

program pro1;
uses
    op,obrabotki;
var a,b,c:mn;
begin
vvod(a,b,c);
vivod(a,b,c);
end.

unit obrabotki;
interface
uses op;
procedure vvod(var aa,bb,cc:mn);
procedure vivod(var a,b,c:mn);
implementation
 
procedure vvod(var aa,bb,cc:mn);
begin
     writeln('Введите множество А');
     aa:=[];
     for q:=1 to i do begin
                      read(q);
                      include(aa,q);
 
     writeln('Введите множество B');
     bb:=[];
     for w:=1 to i do begin
                      read(w);
                      include(bb,w);
     writeln('Введите множество C');
     cc:=[];
     for e:=1 to i do begin
                      read(e);
                      include(cc,e);
end;
end;
end;
end;
 
procedure vivod(var a,b,c:mn);
begin
     for q := 1 to i do
                      if q in a then write(q);
 
     for w := 1 to i do
                      if w in b then write(w);
 
     for e := 1 to i do
                      if e in c then write('e);
end;
end.

program pro1;
uses op,obrabotki,crt;
var a,b,c:mn;
begin
vvod(a,'A');
vvod(b,'B');
vvod(c,'C');
clrscr;
vivod(a,'A');
vivod(b,'B');
vivod(c,'C')
end.

unit op;
interface
const n=5;//мощность множеств
type mn= set of byte;
implementation
end.

unit obrabotki;
interface
uses op;
procedure vvod(var a:mn;c:char);
procedure vivod(a:mn;c:char);
implementation
 
procedure vvod(var a:mn;c:char);
var i,q:byte;
begin
writeln('Введите множество ',c);
a:=[];
for i:=1 to n do
  begin
   repeat
   read(q);
   until not(q in a);
   include(a,q);
  end;
end;
 
procedure vivod(a:mn;c:char);
var i:byte;
begin
writeln('Множество ',c);
for i:=0 to 255 do
if i in a then write(i,' ');
writeln
end;
end.