Написать программу: удаляет буквы, которые будут повторяться при вводе набора букв- Pascal(Паскаль)

uses crt;
var c:char;
    s:string;
    m:set of char;
begin
clrscr;
writeln('Вводите символы, окончание ввода точка');
m:=[];//множество для проверки
s:='';//строка, которую создаем
repeat
c:=readkey;//читаем код клавиши
if not(c in m) then//если еще не было
 begin
  write(c);//выводим
  m:=m+[c];//добавляем в множество
  s:=s+c;//пишем в строку
 end;
if c=#46 then writeln;//если точка, на новую строку
until c=#46;//конец ввода
writeln('Получилась строка');
write(s);
readln
end.