Не запускается программа, процесс не убивается

uses graph;
type
    _Color = (_Red, _Blue, _Yellow);
    _TypeOfFigure = (_Circle, _Treangle, _Rectangle);
 
    _Figure = record
      _CoordX, _CoordY: integer;
      _ColorOfFig : _Color;
      case V : _TypeOfFigure of
         _Circle: ();
         _Treangle: ();
         _Rectangle: ();
       end;
 
var
   _FigInProgr : array[1..3] of _Figure;
   gd, gm, x, y : integer;
   n, i : byte;
   s : string;
 
procedure _Zapolnenie(n, i: byte);
begin
   randomize;
   for i:=1 to 3 do begin
   _FigInProgr[i]._CoordX := random(591)+50;
   _FigInProgr[i]._CoordY := random(431)+50;
   n := random(3);
   case n of
   0: _FigInProgr[i]._ColorOfFig := _Red;
   1: _FigInProgr[i]._ColorOfFig := _Blue;
   2: _FigInProgr[i]._ColorOfFig := _Yellow;
   end;
   n := random(3);
   case n of
   0: _FigInProgr[i].V := _Circle;
   1: _FigInProgr[i].V := _Treangle;
   2: _FigInProgr[i].V := _Rectangle;
   end;
   end;
end;
 
procedure _RisCirce(x, y: integer; i: byte);
begin
   case _FigInProgr[i]._ColorOfFig of
   _Red : setcolor(4);
   _Blue : setcolor(1);
   _Yellow : setcolor(14);
   end;
   x := _FigInProgr[i]._CoordX;
   y := _FigInProgr[i]._CoordY;
   circle(x, y, 50);
end;
 
procedure _RisTreangle(x, y: integer; i: byte);
begin
    case _FigInProgr[i]._ColorOfFig of
    _Red : setcolor(4);
    _Blue : setcolor(1);
    _Yellow : setcolor(14);
    end;
    x := _FigInProgr[i]._CoordX;
    y := _FigInProgr[i]._CoordY;
    line(x, y-50, x-50, y+50);
    line(x-50, y+50, x+50, y+50);
    line(x+50, y+50, x, y-90);
end;
 
procedure _RisRectangle(x, y: integer; i: byte);
begin
    case _FigInProgr[i]._ColorOfFig of
    _Red : setcolor(4);
    _Blue : setcolor(1);
    _Yellow : setcolor(14);
    end;
    x := _FigInProgr[i]._CoordX;
    y := _FigInProgr[i]._CoordY;
    rectangle(x, y, x+90, y+90)
end;
 
procedure _RisFigures(x, y: integer; n, i: byte);
var
 j, k: byte;
begin
    randomize;
    k := random(16)+5;
    for j := 1 to k do begin
    for i := 1 to 3 do begin
    _Zapolnenie(n, i);
    case _FigInProgr[i].V of
    _Circle: _RisCirce(x, y, i);
    _Treangle: _RisTreangle(x, y, i);
    _Rectangle: _RisRectangle(x, y, i);
    end;
    end;
    end;
end;
 
begin
gd := detect;
initgraph(gd, gm, s);
_RisFigures(x, y, n, i);
CloseGraph;
end.