Random это функция возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:

A: = Random(101)-50;      {Числа от -50 до 50}

B: = Random(101)-200;     {от -100 до 100}

А теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!