Организовать ввод строчных латинских букв до ввода точки. Напечатать все неповторяющиеся буквы

Uses Crt;
Var ch:char;
    mn,mn1:set of char;
Begin
    mn:=[];mn1:=[];
    writeln('Вводите строчные латинские буквы (окончание ввода ".")');
    ch:=' ';
    While ch<>'.' do
    Begin
      ch:=readkey;
      if ch<>#13 then write(ch);
      if ch in mn1 then mn:=mn-[ch]
       else mn:=mn+[ch];
      mn1:=mn1+[ch];
    End;
    writeln;
    For ch:='a' to 'z' do
     if ch in mn then write(ch);
    readln;
End.

Uses Crt;
Var ch:char;//переменная символ
    mn,mn1:set of char;//множество символов
Begin
    mn:=[];mn1:=[];//обнуление множеств
    writeln('Вводите строчные латинские буквы (окончание ввода ".")');
    ch:=' ';
    While ch<>'.' do //пока введенна не точка делаем
    Begin
      ch:=readkey;//считываем нажатую клавишу и заносим в переменную ch символ клавиши
      if ch<>#13 then write(ch); //если символ не равен символу с кодом 13 (Enter) то
      //если символ ch уже есть в множестве mn то удаляем его из множества
      if ch in mn1 then mn:=mn-[ch]
       //иначе заносим
       else mn:=mn+[ch];
      mn1:=mn1+[ch];//добавляем к множеству mn1 очередной введенный символ ch
    End;
    writeln;
    For ch:='a' to 'z' do //цикл по всем строчным латинским буквам
     if ch in mn then write(ch); //если очердной символ входит в множество mn выводим его
    readln;//задрежка результата
End.