Программа выдает ошибку. Паскаль

[Тетрадь]

Пусть заданы множества А, В, С вывести напечатать все элементы этих множеств.

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.

unit op;
interface
const i=5;
type mn= set of byte;
var q,w,e:integer;
implementation
end.