Mi działa. :P
Uses GRAPH,crt;
Var
ster,tryb,x,y,i:integer;
Begin
ster:=VGA; tryb:=VGAHi;
initGraph(ster, tryb, 'C:\BP\BGI' );
randomize;
x:=800;
y:=600;
repeat
i:=0;
PutPixel(random(x),random(y),15);
repeat
i:=i+1;
PutPixel(random(x),random(y),0);
until i=1000;
delay(10);
until keypressed...