Дан текст из строчных латинских букв, за которым следует точка. Напечатать все буквы, входящие в текст по одному разу — Pascal(Паскаль)

uses crt;
var s:string;
    c:char;
    m:set of char;
    i:byte;
begin
clrscr;
writeln('Введите текст из строчных латинских букв, окончание точка:');
s:='';
repeat
read(c);{читаем введенный символ}
if c in ['a'..'z','.'] then s:=s+c;{если строчная латинская или точка, добавляем в строку}
until c='.';{первая точка, конец строки}
readln;
writeln;
writeln('Исходная строка:');
writeln(s);
writeln;
writeln('Символы по 1 разу:');
m:=[];
for i:=1 to length(s) do
m:=m+[s[i]];{собираем все символы в множество}
for i:=97 to 122 do{коды строчных латинских букв}
if chr(i) in m then write(chr(i));{если символ с этим кодом есть в множестве, его выводим один раз}
readln
end.