Проблема с Case'ом Опции

[Алекс]

У меня вопрос. как сделать так, чтобы в Case 2 условия было , т.е. типа

readln (a);
readln (B);
case a и b of
a<0 и b<0: ...
a>0 и b<0: ...
...
end;
Подскажите плиз, как этот "и" сделать. Уже пару вариантов пробовал - не получается...
Заранее thx.  :)