Написание игры "Гонки"

uses crt,graph;
var gd,gm,x,y,r,c,z:integer;
 
procedure Krug(x,y,r,c:integer);
 
begin
line(100,400-z,100,-5000-z);
line(300,400-z,300,-5000-z);
line(100,-300-z,230,-300-z);
line(170,-500-z,300,-500-z);
line(100,-700-z,250,-700-z);
line(100,-1000-z,200,-1000-z);
line(250,-1000-z,300,-1000-z);
line(100,-1400-z,150,-1400-z);
line(200,-1400-z,300,-1400-z);
 
line(100,-1800-z,230,-1800-z);
line(170,-2300-z,300,-2300-z);
line(100,-2700-z,250,-2700-z);
line(100,-3000-z,200,-3000-z);
line(250,-3000-z,300,-3000-z);
line(100,-3700-z,150,-3700-z);
line(200,-3700-z,300,-3700-z);
Setcolor(c);
Circle(x,y,r);
setfillstyle(1,c);
floodfill(x,y,c);
end;
procedure Dviz(x,y,r,c,xmx,ymx:integer);
var x1,y1:integer;
    k:char;
    move:boolean;
 
begin
move:=true;
 
repeat
if keypressed then
  begin
    k:=readkey;
    if k=#80 then
      begin
        c:=13;
        y1:=y;
        x1:=x;
        y:=y;
        z:=z+10;
        move:=true;
        if y>ymx-r then y:=y1;
      end;
    if k=#72 then
      begin
        c:=13;
        y1:=y;
        x1:=x;
        y:=y;
        z:=z-10;
        move:=true;
        if y<r then y:=y1;
      end;
    if k=#77 then
      begin
        c:=13;
        y1:=y;
        x1:=x;
        x:=x+20;
        move:=true;
        if x>xmx-r then x:=x1;
      end;
    if k=#75 then
      begin
        c:=13;
        y1:=y;
        x1:=x;
        x:=x-20;
        move:=true;
       if x<r then x:=x1;
      end;
      if r=z then
      begin
      c:=13;
      y1:=y;
      x1:=x;
      y:=y;
      x:=x;
      end;
 
  end;
if move then
  begin
   Krug(x1,y1,r,c);
   cleardevice;
   Krug(x,y,r,c);
   move:=false;
  end;
until k=#27;{Esc- exit}
end;
begin
randomize;
gd:=detect;
Initgraph(gd,gm,'');
OutTextXY(200,20,'Uprawlenye strelkami,  Vyhod-Esc');
OutTextXY(200,40,'         Press Enter...');
readln;
r:=10;
x:=200;
y:=300;
c:=12;
Krug(x,y,r,c);{}
Dviz(x,y,r,c,getmaxX,getmaxY);{}
closegraph
end.