написать программу (Delphi 7)

[Olesya2406]

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

[ViNcHeStEr]

procedure TForm1.Button1Click(Sender: TObject);
begin
if ((edit1.text=inttostr(9583))or(edit1.text=inttostr(1747))) then label1.caption:='доступны модули базы А,В,С';
if ((edit1.text=inttostr(3331))or(edit1.text=inttostr(7922))) then label1.caption:='доступны модули базы Б,С';
if ((edit1.text=inttostr(9455))or(edit1.text=inttostr(8997))) then label1.caption:='доступен модуль базы С';
end;