Программная имитация игры найти одинаковые носки

program zad123;
uses graphABC,Crt;
const
speed=1;
var a,pic,pik,j,h,w,t,d,f: integer;  n:char;
procedure kart(x,y:integer);
begin
SetBrushColor(rgb(random(255),random(255),random(255)));
line (x-10,y+25,x-75,y-75);
line (x-15,y-175,x-85,y-80);
line (x-5,y-75,x+15,y-20);
line (x+45,y-155,x-5,y-75);
line (x-15,y-175,x+45,y-155);
Circle(x,y,25);
Circle(x-60,y-85,25);
end;
var i,x,y:integer;
begin
randomize;
centerwindow;
for i:=1 to 6 do
 begin
  x:=90+random(windowwidth-90-50);
  y:=200+random(windowheight-200-30);
  kart(x,y);
 end;
 begin
LockDrawing;
a:=200; d:=20; f:=20;
while n<>#27 do
 begin
 n:=readkey;
if n=#80 then     {óïðàâëåíèå îáúåêòîì}
      begin
 
      j:=j+f;
      end;
if n=#72 then
      begin
 
      j:=j-f;
      end;
      ClearWindow;
 if n=#77 then
      begin
 
       a:=a-d;
      end;
 if n=#75 then
      begin
 
       a:=a+d;
      end;
 if n=#80 then
 ClearWindow;
    setwindowsize(1200,800);
 
 kart(x,y);
 
circle(a+30,j+30,10);
  Redraw;
 
end;
end;
end.