https://wikidelphi.com/عملگر-منطقی-and-پاسکال/