Непослушный шарик - проблемка

[Пастух]

Всем привет, с графикой в Pascal abc начал работать совсем недавно, поэтому "секретов" этой "науки" еще не постиг, помогите пожалуйста...
Вобщем задача такая, нужно написать программу, которая по заданным координатам строит ломаную линию, (1)и шарик будет двигаться по ней из начальной точки в конечную, (2)при этом он должен останавливаться при одном нажатии мыши и начинать двигаться при следующем.

Начал осуществлять, написал пробную прогу только для горизонтальной линии (1), но, он не едет

PHP код:

uses GraphABC;
Procedure Sharik(xf, yf, xs, ys:Integer);
Var x,y: Integer;
  Begin
    LockDrawing;
    x:=xf;
    y := yf;
    While (x<>xs) Do
     Begin
      If getpixel(x+1,y) = clblack Then {мол, если следующий пиксель черный}
       Begin
        circle(x+1,y,5);                         {то нарисуй в нем круг}
        Redraw; Sleep(30);
        x :=x+1;
       End;
     End;
  End;

Var x,y,x1,y1,x2,y2:Integer;
 Begin
  MoveTo(6,1);
  x1 := 6; y1:=1; x2:=100; y2:=1;
  LineTo(x2, y2);
  circle(6,1,5);
  
  Sharik(x1, y1, x2, y2);
 End. 


В чем проблема, и если возможно, то напишите пожалуйста, ее решение...

+ Пункт (2) я вообще не знаю как осуществить, помогите, плиииззззз....

Заранее спасибо)