Несколько шариков, летающих одновременно

uses crt,graph;
{const x=630;y=470;}
var q,i,j,gd,gm,r,xo,yo,m,k,n,x1o,y1o,k2:integer;
    kk,xxo,yyo,k1,x,y,speed:integer;
begin
     clrscr;randomize;
     write('enter speed(ms): '); readln(speed);
     write('enter size of a field(px): '); readln(x,y);
     write('enter an initial site of a ball: '); readln(xo,yo);
     write('enter rad: '); readln(r);
     writeln('N=5, S=4, W=7, E=6, NW=2, NE=3, SW=1,SE=0');
     write('enter direction vector: ');readln(k);
     gd:=detect;gm:=1;
     initgraph(gd,gm,'d:\program\bp\bgi');
     delay(1000);
     rectangle(0,0,x,y);
     circle(xo,yo,r);
     readkey;
     {xo:=120;yo:=120;}
     i:=1;j:=1;{k:=5;}
     kk:=k;xxo:=xo;yyo:=yo;
     repeat
           setcolor(0);
           circle(xo,yo,r);
           k1:=k;
           if (getpixel(xo+r+1,yo)<>0)and(getpixel(xo,yo+r+1)<>0) then k:=2 else
           if (getpixel(xo-r-1,yo)<>0)and(getpixel(xo,yo-r-1)<>0) then k:=0 else
           if (getpixel(xo+r+1,yo)<>0)and(getpixel(xo,yo-r-1)<>0) then k:=1 else
           if (getpixel(xo-r-1,yo)<>0)and(getpixel(xo,yo+r+1)<>0) then k:=3 else
           if getpixel(xo+r+1,yo)<>0 then begin if k=0 then k:=1 else k:=2;end else
           if getpixel(xo,yo+r+1)<>0 then begin if k=0 then k:=3 else k:=2;end else
           if getpixel(xo,yo-r-1)<>0 then begin if k=2 then k:=1 else k:=0;end else
           if getpixel(xo-r-1,yo)<>0 then begin if k=2 then k:=3 else k:=0;end;
           case k of
                0:begin i:=+1;j:=+1;end;
                1:begin i:=-1;j:=+1;end;
                2:begin i:=-1;j:=-1;end;
                3:begin i:=+1;j:=-1;end;
                4:begin i:=0;j:=+1;end;
                5:begin i:=0;j:=-1;end;
                6:begin i:=+1;j:=0;end;
                7:begin i:=-1;j:=0;end;
           end;
           if k<>k1 then begin sound(1000);q:=1;end;
           if q=1 then n:=n+1;
           if n=10 then begin nosound;q:=0;n:=0;end;
           xo:=xo+i;yo:=yo+j;
           if (k=kk)and(xo=xxo)and(yo=yyo) then
              begin
                   settextstyle(0,0,2);
                   setcolor(lightred);
                   outtextxy(260,450,'Repeat');
                   break;
              end;
           setcolor(15);
           circle(xo,yo,r);
           delay(speed);
     until keypressed;
     nosound;
     readkey;
end.