Как вывести на экран элементы множества в Pascal?

Program;
Uses crt;
var
a: set of char;
p1,p2,p3,p4,p:set of char;
s1,s2,s3:string;
i,g: integer;
Begin
clrscr;
a:=['а','е','ё','и','о','у','ы','э','ю','я','А','Е','Ё','И','О','У','Ы','Э','Ю','Я'];
s1:='трудно быть богом .';
p1:=[];
p2:=[];
p3:=[];
p4:=[];
Begin
 s2:=copy(s1, 1, pos(' ', s1) - 1);
 insert(s2,s3,2);
 delete(s1, 1, pos(' ', s1));
 for i:=1 to length(s3) do
  p1:=p1+[s3[i]];
  delete(s3, 1,pos(' ', s3));
 end;
Begin
 s2:=copy(s1, 1, pos(' ', s1) - 1);
 insert(s2,s3,2);
 delete(s1, 1, pos(' ', s1));
 for i:=1 to length(s3) do
  p2:=p2+[s3[i]];
  delete(s3, 1,pos(' ', s3));
 end;
Begin
 s2:=copy(s1, 1, pos(' ', s1) - 1);
 insert(s2,s3,2);
 delete(s1, 1, pos(' ', s1));
 for i:=1 to length(s3) do
  p3:=p3+[s3[i]];
  delete(s3, 1,pos(' ', s3));
 end;
Begin
 s2:=copy(s1, 1, pos(' ', s1) - 1);
 insert(s2,s3,2);
 delete(s1, 1, pos(' ', s1));
 for i:=1 to length(s3) do
  p4:=p4+[s3[i]];
  delete(s3, 1,pos(' ', s3));
 end;
p:=p1*p2*p3*p4;
a:=a+p;
write(a,' ');
Readln(a,' ');
End.

var
  c: Char;
 
  for c:=Low(Char) to High(Char) do
    if c in a then
      Write(c:2);

  for c in a do
    Write(c:2);