Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого является встречающиеся в последовательности: буквы от ‘A’ до ‘F’ и от ‘X’ до ‘Z’ — Pascal(Паскаль)

uses crt;
var
a:set of char;
i,k,m,n:integer;
s:string;
Begin
 
writeln('s= ');
readln(s);
 
for i:=1 to length(s) do
if (s[i]>='A') and (s[i]<='F') or (s[i]>='X') and (s[i]<='Z')
then
a:=a+[s[i]];
 
for i:=1 to 255 do
    if (chr(i)) in a then
       write(chr(i));
End.

uses crt;
var
a:set of char;
i:integer;
s:string;
Begin
writeln('s= ');
readln(s);
 
 for i:=1 to length(s) do
    if s[i] in ['A'..'F','X'..'Z'] then include(a,s[i]);
 
 for i:=1 to 255 do
    if (chr(i)) in a then
    write(chr(i));
End.