Построить множество, элементами которого являются символы от А до К и от 10 до 20

Program mn;
uses crt;
var A, S: set of char;
       i: char;
  begin
    clrscr;
     S:=[];
      A:=['A'..'K', '10'..'20'];
       writeln('введите буквы и цифры ');
       repeat
       read(i);
        if i in A then S:=S+[i];
        until eoln;
        if S=[] then writeln('таких букв и цифр нет')
         else
     begin
      writeln(' такие символы и буквы составлябт множество :');
       write('S={');
        for i := 'A' to 'K' do
         if i in S then write (i:2);
        for i:= '10' to '20' do
        if i in S then write(i:2);
        writeln('}');
     end;
    readln;
   readln;
  end.

Program mn;
uses
  crt;
var
  A, S: set of char;
  i: char;
begin
  clrscr;
  S:=[];
  A:=['A'..'K', #10..#20];
  writeln('введите буквы и цифры ');
  repeat
    read(i);
    if i in A then
      S:=S+[i];
  until eoln;
  if S=[] then
    writeln('таких букв и цифр нет')
  else
    begin
      writeln(' такие символы и буквы составлябт множество :');
      write('S={');
      for i := 'A' to 'K' do
      if i in S then
        write (i:2);
      for i:= #10 to #20 do
      if i in S then
        write(i:2);
      writeln('}');
    end;
  readln;
end.

in 10..20

type
  TMixedSet = record
    n: set of 10..20;
    c: set of 'A'..'K';
  end;
 
procedure ReadMixedSet(var m: TMixedSet);
...
 
procedure WriteMixedSet(const m: TMixedSet);
...
 
var
  m: TMixedSet;
begin
  Write('Введите числа (10..20) и буквы (A..K): '); ReadMixedSet(m);
  Write('Множество: '); WriteMixedSet(m);
end.

program lb8_1;
uses crt;
var  S: set of char;
      A: set of 10..20;
       i: char;
  begin
  clrscr;
   S:=[];
   A:=['A'..'K', '10'..'20'];
   writeln('vvedite stroky bykv i chisel ');
   repeat
   read(i);
   if i in A then S:=S+[i];
   until eoln;
   if S=[] then writeln('takix  net')
   else
     begin
     writeln(' takie sim i byk sost mn :');
     write('S={');
     for i := 'A' to 'K' do
     if i in S then write (i:2);
     for i:= '10' to '20' do
     if i in S then write(i:2);
     writeln('}');
     end;
    readln;
   readln;
  end.

var
  m: set of 10..21+Ord('K')-Ord('A');
  s: String;
  i, n: Integer;
begin
  Write('Введите элементы (10..20, A..K): '); ReadLn(s);
  m:=[]; i:=1;
  while i<=Length(s) do begin
    case s[i] of
      'A'..'K': Include(m,21+Ord(s[i])-Ord('A'));
      'a'..'k': Include(m,21+Ord(s[i])-Ord('a'));
      '0'..'9':
        begin
          n:=0;
          while (i<=Length(s)) and (s[i] in ['0'..'9']) do begin
            n:=n*10+Ord(s[i])-Ord('0');
            Inc(i);
          end;
          Dec(i);
          if (n>=10) and (n<=20) then Include(m,n);
        end;
    end;
    Inc(i);
  end;
  Write('Получено множество:');
  for i:=10 to 20 do
    if i in m then Write(i:3);
  for i:=21 to 21+Ord('K')-Ord('A') do
    if i in m then Write(Chr(i+Ord('A')-21):2);
  WriteLn;
end.