Pascal записи и множества

uses crt;
type Chel=record {тип запись(ф,и,о)}
          im,ot,fm:string;
          end;
var ch:Chel;{переменная типа запись}
    mi,mo,mf:set of char;{множества}
    i:byte;
begin
clrscr;
writeln('Введите имя:');
readln(ch.im);
mi:=[];{множество пустое}
for i:=1 to length(ch.im) do
mi:=mi+[ch.im[i]];{собираем символы имени в множество}
writeln('Введите отчество:');
readln(ch.ot);
mo:=[];
for i:=1 to length(ch.ot) do
mo:=mo+[ch.ot[i]];
writeln('Введите фамилию:');
readln(ch.fm);
mf:=[];
for i:=1 to length(ch.fm) do
mf:=mf+[ch.fm[i]];
write('Символы, входящие только в имя:  ');
for i:=65 to 241 do{интервал в который входят все символы латинских и русских букв}
if (chr(i)in mi)and not(chr(i) in mo)and not(chr(i)in mf){если символ есть в имени, но его нет в фамилии и отчестве}
then write(chr(i),' ');{выводим}
writeln;
write('Символы, входящие только в отчество:  ');
for i:=65 to 241 do
if (chr(i)in mo)and not(chr(i) in mi)and not(chr(i)in mf)
then write(chr(i),' ');
writeln;
write('Символы, входящие только в фамилию:  ');
for i:=65 to 241 do
if (chr(i)in mf)and not(chr(i) in mo)and not(chr(i)in mi)
then write(chr(i),' ');
readln
end.