Проверка числа на отрицательность:
Паскаля нет, но могу дать код условия:
переменные a:integer;
условие проверки:
if a<0 then 
Writeln("Число отрицательное") 
else
Writeln("Число положительное");
end;

Входит ли число в диапазон:
a:integer;
b,c:integer;
begin
b:=-10;
c:=40;
if (a>=b) and (a<=c) then 
Writeln("Число входит в диапазон (-10:40)") else
Writeln("Число не входит в диапазон (-10:40)");
end;