Паскаль

[programming]

Проверьте пожалуйста почему не работает. Задача такая: заполняются пять множеств символами, вводится отдельный символ и нужно вывести номера множеств в которых лежит введенный символ

type
  c = set of char; 
  s = array[1..5] of c;

var
  b: s;

procedure input(var a: s);
var
  i: byte;ch: char;
begin
  for i := 1 to 5 do
  begin
    writeln('Input name of product. Input space to stop'); a[i] := [];
    repeat
      read(ch);
      if ch <> ' ' then a[i] := a[i] + [ch];
    until ch = ' ';
  end; end;

procedure check(a: s);
var
  hc: char; i: byte;
begin
  write('Check?');
  readln(hc);
  for i := 1 to 5 do
    if hc IN a[i] then write(i:3);
end;

begin
  input(b);
  check(b);
  readln;
end.

не могу найти ошибку. все время выводит все 5 множеств