Определить буквы, которые только в первом и втором словах

Var
  s,s1:string;
  i:byte;
  j:char;
  ch,ch1,ch2:set of char;
Begin
  write('Введите строку: ');
  readln(s);
  s:=s+' ';
  s1:=Copy(s,1,Pos(' ',s)-1);
  for i:=1 to length(s1) do
    include(ch1,s1[i]);
  Delete(s,1,Pos(' ',s));
  s1:=Copy(s,1,Pos(' ',s)-1);
  for i:=1 to length(s1) do
    include(ch2,s1[i]);
  ch:=ch1+ch2;
  for j:=#0 to #255 do
    if j in ch then
      write(j,' ');
  readln;
End.

type
    CharSet = Set Of Char;
var
    s1, s2, s3, s4: String;
    uniq: CharSet;
procedure AddToSet(var x: CharSet; const s: String);
var
    i: Byte;
begin
    for i := 1 to Length(s) do
        Include(x, s[i]);
end;
procedure DeleteFromSet(var x: CharSet; const s: String);
var
    i: Byte;
begin
    for i := 1 to Length(s) do
        Exclude(x, s[i]);
end;
procedure PrintSet(const x: CharSet);
var
    c: Char;
begin
    Write('ans:');
    for c := 'a' to 'z' do
        if (c in x)
        then
            Write(c:2);
    for c := 'A' to 'Z' do
        if (c in x)
        then
            Write(c:2);
end;
begin
    Write('s1='); ReadLn(s1);
    Write('s2='); ReadLn(s2);
    Write('s3='); ReadLn(s3);
    Write('s4='); ReadLn(s4);
    AddToSet(uniq, s1); AddToSet(uniq, s2);
    DeleteFromSet(uniq, s3); DeleteFromSet(uniq, s4);
    PrintSet(uniq);
end.