Построить множество, состоящее из латинских букв, которые хотя бы раз встречаются во введенной строке - PascalABC.NET

var s:string;
    mn:set of char;
    n,i:integer;
    c:char;
begin
writeln('Введите строку, содержащую латинские буквы');
readln(s);
n:=length(s);
mn:=[];
for i:=1 to length(s) do
if s[i] in ['A'..'Z','a'..'z'] then mn:=mn+[s[i]];
if mn=[] then write('Латинских букв нет')
else
 begin
  writeln('Множество латинских букв');
  for c:='A' to 'z' do
  if c in mn then write(c);
 end;
end.