Определить и вывести на экран множество символов входящих только в имя, отчество или фамилию

 program mnozestva;
uses crt;
 
Type Zp=Record
     Name,Fam,Otch:string[15];
     End;
Var mn:set of char;
    st:zp;
    i:integer;
 
Begin
clrscr;
    write('Имя: ');readln(st.name);
    write('Отчество: ');readln(st.otch);
    write('Фамилия: ');readln(st.fam);
    mn:=[];
    For i:=1 to Length(st.name) do
     mn:=mn+[st.name[i]];
    For i:=1 to Length(st.otch) do
     mn:=mn+[st.otch[i]];
    For i:=1 to Length(st.fam) do
     mn:=mn+[st.fam[i]];
    For i:=0 to 255 do
     if chr(i) in mn then write(chr(i):2);
End.

program mnozestva;
uses crt;
Type Zp=Record
     Name,Fam,Otch:string[15];
     End;
Var mf,mi,mo,mn:set of char;
    st:zp;
    i:integer;
Begin
clrscr;
write('Имя: ');readln(st.name);
write('Отчество: ');readln(st.otch);
write('Фамилия: ');readln(st.fam);
mi:=[];
For i:=1 to Length(st.name) do
mi:=mi+[st.name[i]];
mo:=[];
For i:=1 to Length(st.otch) do
mo:=mn+[st.otch[i]];
mf:=[];
For i:=1 to Length(st.fam) do
mf:=mf+[st.fam[i]];
mn:=mi-mo-mf;
if mn=[] then writeln('В имени нет оригинальных символов')
else writeln('Символы только в имени');
For i:=32 to 255 do
if chr(i) in mn then write(chr(i):2);
writeln;
mn:=mo-mi-mf;
if mn=[] then writeln('В отчестве нет оригинальных символов')
else writeln('Символы только в отчестве');
For i:=32 to 255 do
if chr(i) in mn then write(chr(i):2);
writeln;
mn:=mf-mi-mo;
if mn=[] then writeln('В фамилии нет оригинальных символов')
else writeln('Символы только в фамилии');
For i:=32 to 255 do
if chr(i) in mn then write(chr(i):2);
End.

mo:=[];
For i:=1 to Length(st.otch) do
mo:=mo+[st.otch[i]];

program mnozestva;
uses crt;
Type Zp=Record
     Name,Fam,Otch:string[15];
     End;
     Mnz=set of char;
var f:boolean;
procedure vvod(var st:Zp;var mi,mo,mf:Mnz);
var i:byte;
begin
clrscr;
write('Имя: ');readln(st.name);
write('Отчество: ');readln(st.otch);
write('Фамилия: ');readln(st.fam);
mi:=[];
For i:=1 to Length(st.name) do
mi:=mi+[st.name[i]];
mo:=[];
For i:=1 to Length(st.otch) do
mo:=mo+[st.otch[i]];
mf:=[];
For i:=1 to Length(st.fam) do
mf:=mf+[st.fam[i]];
f:=true;
end;
procedure imya(var mi:Mnz;mo,mf:Mnz);
var mn:Mnz;
    i:byte;
begin
clrscr;
if not f then
 begin
  write('Множество еще не создано, вкрнитесь к пункту 1');
  readln;
  exit
 end;
mn:=mi-mo-mf;
if mn=[] then writeln('В имени нет оригинальных символов')
else writeln('Символы только в имени');
For i:=32 to 255 do
if chr(i) in mn then write(chr(i):2);
readln
end;
procedure otchestvo(var mo:Mnz;mi,mf:Mnz);
var mn:Mnz;
    i:byte;
begin
clrscr;
if not f then
 begin
  write('Множество еще не создано, вкрнитесь к пункту 1');
  readln;
  exit
 end;
mn:=mo-mi-mf;
if mn=[] then writeln('В отчестве нет оригинальных символов')
else writeln('Символы только в отчестве');
For i:=32 to 255 do
if chr(i) in mn then write(chr(i):2);
readln
end;
procedure familia(var mf:Mnz;mi,mo:Mnz);
var mn:Mnz;
    i:byte;
begin
clrscr;
if not f then
 begin
  write('Множество еще не создано, вкрнитесь к пункту 1');
  readln;
  exit
 end;
mn:=mf-mi-mo;
if mn=[] then writeln('В фамилии нет оригинальных символов')
else writeln('Символы только в фамилии');
For i:=32 to 255 do
if chr(i) in mn then write(chr(i):2);
readln
end;
 
Var mf,mi,mo,mn:Mnz;
    st:zp;
    w:integer;
Begin
clrscr;
repeat
clrscr;
writeln('Выберите действие:');
writeln('0-выход');
writeln('1-запись множеств');
writeln('2-вывод множества имя');
writeln('3-вывод множества отчество');
writeln('4-вывод множества фамилия');
repeat
readln(w);
until w in [0..4];
case w of
0:exit;
1:vvod(st,mi,mo,mf);
2:imya(mi,mo,mf);
3:otchestvo(mo,mi,mf);
4:familia(mf,mi,mo);
end;
until w=0;
End.

f:=false;