Графика Паскаль.Почему на экране ни чего не происходит

uses graph;
 var drivervar,modevar,errorcode:integer;
  xpos,ypos,x,y,i,delay,textcolor:integer;
   procedure init;
begin
    errorcode:=graphresult;
  if errorcode<>grok then begin
                     writeln('Graphiceror', grapherrorMsg(errorcode));
                     halt(1)
                     end;
 
begin
 xpos:=getX;
  ypos:=getY;
   x:=6000 div 10;
    y:=2000 div 2;
  if(x>getmaxX) or (y>getmaxY) then write('Vichod za predeli display');
 end;
 end;
begin
 setcolor(10);
     driverVar:=vga;
      initgraph(driverVar,modevar,' ');
    for i:=1 to 100 do
        begin
        rectangle(200,random(300),250,300);
 end;
end.

uses graph;
var drivervar,modevar,errorcode:integer;
    xpos,ypos,x,y,i,delay,textcolor:integer;
procedure init;
begin
driverVar:=vga;
initgraph(drivervar,modevar,'');
errorcode:=graphresult;
if errorcode<>grok then
 begin
  writeln('Graphiceror', grapherrorMsg(errorcode));
  halt(1)
 end;
xpos:=getX;
ypos:=getY;
x:=6000 div 10;
y:=2000 div 2;
if(x>getmaxX) or (y>getmaxY) then write('Vichod za predeli display');
end;
 
begin
init;
setcolor(10);
for i:=1 to 100 do
rectangle(200,random(300),250,300);
readln
end.

for i:=1 to 100 do
    begin
    Random(16);  {установка цвета}
    Rectangle(200,Random(300),250,300); 
    {i-ый прямоугольник}
    Delay(50);{задержка}
    ClearDevice {очистка экрана}
end;