Анимация сортироки вставками

[kaxazver]

помогите поправить код
как правильно организовать движение числа?

void mysort(int dt) 
{
  int razn,s,n;
  int a[10]={0},t,p,r=10,i,k,j,x=40,dx,dy,q,u=27;
 char scr[2]; p=r;

randomize();
	for(i=0; i<10; i++) //Zapolneni masiva 
	{
	//randomize();
 a[i]=rand()%100;
}

settextstyle(0,0,2);

moveto(120,100);

setcolor(1);

for(i=0;i<p;i++) //Вывод начального массива чисел
{

	moveto(120,100);
	moverel(x*i,0);
	sprintf(scr,"%i",a[i]);
	setcolor(6);
	outtext(scr);
	moveto(120,200);
	moverel(x*i,0);
	sprintf(scr,"%i",a[i]);
	setcolor(6);
	outtext(scr);
}
getch();

/** *Сортировка массива вставкой* **/

for(i=0;i<r;i++,p--) //проход по массиву
{
k=getmin(a,p);

// анимация перемещение числа
sprintf(scr,"%i",a[k]);
moveto(120,100);
moverel(x*k,0);
setcolor(i);
outtext(scr);
dx=x*k;
delay(dt);


// перемещение вверх
for(q=1;q<41;q++)
{
moveto(120,100);
moverel(dx,0);
moverel(0,-q+1);
setcolor(0);
outtext(scr);
moveto(120,100);
moverel(dx,0);
moverel(0,-q);
setcolor(q
);
outtext(scr);
delay(dt);
}

razn=k-i;
s=fabs(razn)*x+1;// расстояние на которое переместится число
n=1;
if(razn>0)n=-1; // направления перемещения

for(q=1;q<s;q++) // в бок
{
moveto(120,60);
moverel(dx,0);
moverel((q-1)*n,0);
setcolor(0);
outtext(scr);
moveto(120,60);
moverel(dx,0);
moverel(q*n,0);
setcolor(q);
outtext(scr);
delay(dt);
}
dx=x*i;



for(j=k;j>10-p;j--) // смещение чисел в массиве 
{
t=a[k];
a[j]=a[j-1];
a[razn]=t;
sprintf(scr,"%i",a[j-1]);
moveto(120,100);
dx=x*(j-1);
moverel(dx,0);

for(q=1;q<41;q++) // смещение хвоста массива
{
moveto(120,100);
moverel(dx,0);
moverel(q+1,0);
setcolor(0);
outtext(scr);
moveto(120,100);
moverel(dx,0);
moverel(q,0);
setcolor(1
);
outtext(scr);
delay(dt);
}
a[p]=a[k];
}


for(q=1;q<41;q++) // перемещение вниз
{
moveto(120,60);
moverel(dx,0);
moverel(0,q-1);
setcolor(0);
outtext(scr);
moveto(120,60);
moverel(dx,0);
moverel(0,q);
setcolor(q+2);
outtext(scr);
delay(dt);
}

}

moveto(20,420);
setcolor(5);
outtext("Any key for exit");
getch();
cleardevice();
}