Танк в турбо паскале

[Sour1]

Здравствуйте
Что нужно написать чтобы танк двигался и повсюду были разбросаны мины

uses Crt, graph;
var
 grDriver : Integer;
grMode   : Integer;
 x,y: Integer;
begin
x:=0; y:=0;

grDriver := Detect;

InitGraph(grDriver, grMode, 'X:\BP');

     repeat
  Rectangle(x,y+15,x+20,y+50);
        Circle(19,35,7);
     line(19,y+5,19,y+25);




closegraph;
      until keypressed
end.