[Igor]

На данный момент заметил один недочет
0<=random ( 8 )<8
было бы лучше

Procedure desk;
var a:array [0..7]of image;
begin
...
drawimage(a[random( 8 )]),x,y);

А что именно от программки требуется?
Поподробнее напиши.