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

uses crt;
const lb=['A'..'Z','a'..'z'];
var s:string;
    m:set of char;
    i:byte;
    c:char;
begin
clrscr;
writeln('Введите текст из латинских букв:');
readln(s);
m:=[];
for i:=1 to length(s) do
if s[i] in lb then
 begin
  if not(s[i] in m) then m:=m+[s[i]]{если нет буквы в множестве - добавляем}
  else m:=m-[s[i]];{если уже есть, исключаем ее из множества}
 end;
writeln('Буквы встречаются 1 раз:');
for c:='A' to 'z' do
if c in m then write(c,' ');
readln
end.