Здравствуйте! Помогите с моей задачкой.
вот задание:
Транспортный цех объединения обслуживает три филиала А, В, и С. Грузовики перевозят изделия из А в В из В и С возвращаются затем в А без груза.
Погрузка в А занимает 20 мин, переезд из А в В длится 30 ин, разгрузка и погрузка в В длится 40 мин, переезд в С – 30 мин, разгрузка в С – 20 мин и переезд в А – 20 мин.
Если к моменту погрузки в А или В отсутствуют изделия грузовики уходят дальше по маршруту. Изделия в А выпускаются партиями по 1000 шт, через 20±3 мин, в В – 20±5 мин.
На линии 8 грузовиков каждый перевозит по 1000 изделий. Вначале все в А. Смоделировать работу транспортного предприятия на 400 ч.

я предлагаю такое решение: подскажите правильно ли так? дело в том что набросал на Delphi, а в итоге что-то расхождение

5 EMPTY VARIABLE N3-N4+N12-N13 ;число пустых перегонов
10 GENERATE ,,,8 ;выход 8-ми грузовиков

20 ASSIGN 1,0 ;помечаем грузовики как пустые

30 BEG TEST G X1,0,GOTOB ;проверка наличия груза в п.А

40 SAVEVALUE 1-,1 ;забрать груз для погрузки

50 ADVANCE 20 ;задержка 20 мин для погрузки

60 ASSIGN 1,1 ;помечаем: грузовик с грузом

70 GOTOB ADVANCE 30 ;30 мин переезд в п.В

80 RAZGR TEST G P1,0,POGR ;проверка: нужно разгружаться?

90 ADVANCE 20 ;разгрузка 20 мин

100 ASSIGN 1,0 ;помечаем грузовик как пустой

110 POGR TEST G X2,0,GOTOC ;проверка наличия груза в п.В

120 SAVEVALUE 2-,1 ;забрать груз для погрузки 

130 ADVANCE 20 ;разгрузка 20 мин 

140 ASSIGN 1,1 ;помечаем: грузовик с грузом 

150 GOTOC ADVANCE 30 ;30 мин переезд в п.С

160 TEST G P1,0,GOTOA ;проверка: нужно разгружаться?

170 ADVANCE 20 ;разгрузка 20 мин 

180 ASSIGN 1,0 ;грузовик пуст

190 GOTOA ADVANCE 20 ;20 мин переезд в п.А

200 TRANSFER ,BEG ;начинаем новый круг


*** Производство перевозимой продукции ***


210 GENERATE 20,3 ;выпуск партий в п. А

220 SAVEVALUE 1+,1 ;число партий - в ячейке X1

230 TERMINATE 

240 GENERATE 20,5 ;выпуск партий в п. В

250 SAVEVALUE 2+,1 ;число партий - в ячейке X2

260 TERMINATE 


*** Таймер для останова процесса моделирования ***


270 GENERATE 24000 ;по условию задачи 400 часов.

280 TERMINATE 1