программирование пуассоновского потока

[nolz]

На междугородней телефонной станции две телефонистки обслуживают общую очередь заказов. Очередной заказ обслуживает та телефонистка, которая первой освободилась. Если обе в момент поступления заказа заняты, то звонок аннулируется и требуется звонить снова. Смоделировать процесс, считая входные потоки пуассоновскими.

вот что получилось у меня

 
   o:=0;//время обработки заявки  
   t:=0;// зануление времени
   obr:= 0;//количество обработанных заявок
   otkaz:= 0;//количество отказов
   vz:=480 div n; //время между поступающими звонками
repeat
   t:=t+random(vz)+1;
   if o<=t then
      begin
         o:=z+random(tz)+1;
         obr := obr + 1;
      end else otkaz := otkaz + 1;
until t>= 480;

подскажите пожалуйста как сюда вставить пуассоновску случайную величину