Программирование алгоритмов со многими вариантами

[Mari.Prosto Mari]

Помогите, очень прошу, пожалуйста!!!!!!!!!

Напишите программу, которая по паролю будет определять степень доступности сотрудника к секретной информации в базе данных. Доступ к базе имеют только шесть человек, разбитых на три группы по степени доступа. Они имеют следующие пароли:
9583, 1747 – доступны модули базы А,Б,С
3331, 7922 – доступны модули базы Б.С
9455, 8997 – доступен модуль базы С.

Знаю только что решается с помощью условия case

[ROMA2PVT]

Uses
   CRT;
Var
  parol,shel:integer;
begin
  write('Введите количество человек: ');
  readln(shel);
  write('Введите пароль: ');
  readln(parol);
  if shel<=6 then
  begin
  writeln('Доступ разрешён');
    case parol of
         9583,1747:writeln('Доступны модули базы A,B,C');
         3331,7922:writeln('Доступны модули базы B,C');
         9455,8997:writeln('Доступны модули базы C');
    end;
    end
    else writeln('Отказано в доступе!!!');
readkey;
end.