Множесва (Delphi)

[Aleksey Kuznetsov]

Помогите пожалуйста сделать задание
Создать множество символьного типа путем ввода с клавиатуры. Определить, входят ли в это множество символы, вводимые с клавиатуры

[evg_m]

как работать со множеством

var
  test: set of char;
  c, x: char;
  r: string;

  test:=[];//пустое множество
  c:='a';
  Include(test, c);//добавили ко множеству
  x:='b';
  if x in test then r:='OK' else r:='NO'; //проверили принадлежность