Random это функция возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:
A: = Random(101)-50; {Числа от -50 до 50}
B: = Random(101)-200; {от -100 до 100}
А теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!