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

[Алекс]

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

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

[___ALex___]

" case a и b of
 a<0 и b<0: ...
 a>0 и b<0: ...
 ...
 end; "

такие проверки пишут так:
if b < 0 then if a < 0 then begin {...} end else if a <> 0 then begin {...} end;