Динамические переменные. Delphi

[svobodys]

Прошу помочь с задачкой.

Автостоянка содержит одну полосу. Машины въезжают с южного конца и
выезжают с северного. Если автомобиль владельца, пришедшего забрать его,не расположен севернее всех остальных, то автомобили, стоящие севернее его,удаляются из гаража, затем выезжает его машина, и оставшиеся машиныпомещаются назад в том же порядке. Если машина покидает гараж, то всемашины, расположенные южнее, сдвигаются вперед столько раз, сколькоимеется свободных позиций в северной части. Построить программную модель этой автостоянки.

Вот код, который я написалнельзя ли сделать её проще? заранее спасибо)

ЛАБА 4я.doc