Проверить символы ряда на четность и записать их в отдельное множество - Free Pascal

var
  s : string;
  i : integer;
  ch : char;
  odds, evens : set of char;
 
begin
  readln(s);
  for i := 1 to length(s) do
    if odd(ord(s[i])) then odds := odds + [s[i]]
    else evens := evens + [s[i]];
 
  writeln('Символы с нечетными кодами:');
  for ch := #0 to #255 do
    if ch in odds then write(ch:2);
  writeln;
  writeln('Символы с четными кодами');
  for ch := #0 to #255 do
    if ch in evens then write(ch:2);
  writeln;
 
  if odds * evens = [] then writeln('Что я говорил? Нет пересечений')
  else writeln('Эта строка никогда не будет напечатана')
end.