Обработка множеств - Free Pascal

Формулировка задачи:

Разработать программу в которой из заданной текстовой строки будут сформированы три множества: S1 – множество цифр, S2 – множество больших букв, S3 – множество символов, что находятся на четных позициях. Найти объединение множеств( S1 и S3) и (S2 и S3).

Решение задачи: «Обработка множеств»

Листинг программы

var
  s: String;
  s1, s2, s3: set of Char;
  i: Integer;
  c: Char;
begin
  WriteLn('Введите строку, содержащую цифры и большие буквы');
  ReadLn(s);
  for i:=1 to Length(s) do begin
    if s[i] in ['0'..'9'] then Include(s1,s[i]) else
    if s[i] in ['A'..'Z','А'..'Я','Ё'] then Include(s2,s[i]);
    if not Odd(i) then Include(s3,s[i]);
  end;
  Write('S1:'); for c in s1 do Write(c:2); WriteLn;
  Write('S2:'); for c in s2 do Write(c:2); WriteLn;
  Write('S3:'); for c in s3 do Write(c:2); WriteLn;
  Write('S1+S3:'); for c in s1+s3 do Write(c:2); WriteLn;
  Write('S2+S3:'); for c in s2+s3 do Write(c:2); WriteLn;
end.

Объяснение кода листинга программы

Объявлены переменные: строка s, множества s1, s2, s3 и целое число i, символ c.
Выводится сообщение с просьбой ввести строку.
Считывается строка s.
Происходит итерация по каждому символу строки s.
Если символ является цифрой, то он включается в множество s1.
Если символ является большой буквой, то он включается в множество s2.
Если символ не является цифрой и не является большой буквой, то он включается в множество s3.
Если индекс симвома в строке нечетный, то символ включается в множество s3.
Выводятся множества s1, s2, s3.
Выводятся суммы множеств s1+s3 и s2+s3.