... writexyso(k* 4-3 ,dong-3,207,n+1);delay(tg); xoa(k* 4-3 ,dong-3);delay(tg); end; writexyso(i* 4-3 ,dong,207,n+1);delay(tg); writexyso(i* 4-3 ,dong,old,n+1);delay(tg); end; a[i]:=x; end; xoa(m* 4-3 ,dong-3);delay(tg); ... do writexyso(i* 4-3 ,dong,15,i); For i:=2 to n do begin a[n+1]:=a[i]; writexyso(i* 4-3 ,dong,159,i);delay(tg); xoa(i* 4-3 ,dong); writexyso(i* 4-3 ,dong-3,159,i); x:=a[i]; j:=i-1; thoat:=not(nho(x,j)); ... i<>j then Hvi(i,j); i:=i+1;j:=j-1; writexyso(l* 4-3 ,dong,47,l); writexyso(r* 4-3 ,dong,47,r); end; until i>j; writexyso(l* 4-3 ,dong,old,l); writexyso(r* 4-3 ,dong,old,r); if l<j then...