Написать программу передвижения шарика вдоль графика корень из х

uses graphABC;
function F(x: real): real;
begin
  F := sqrt(x);
end;
 
var
  x, mx, my, a, b: real;
  x0, y0, i: integer;
  s: string;
 
begin
  a := 0;
  b := 6;
  x0 := windowwidth div 2;
  y0 := windowheight - 50;
  mx := (x0 - 30) / b;
  my := (y0 - 30) / F(b);
  line(0, y0, windowwidth, y0);
  line(x0, 0, x0, windowheight);
  for i := 1 to trunc(F(b)) + 1 do
  begin
    line(x0 + round(i * mx), y0 - 3, x0 + round(i * mx), y0 + 3);
    textout(x0 + round(i * mx), y0 + 10, inttostr(i));
    line(x0 - round(i * mx), y0 - 3, x0 - round(i * mx), y0 + 3);
    textout(x0 - round(i * mx), y0 + 10, inttostr(-i));
    line(x0 - 3, y0 - round(i * my), x0 + 3, y0 - round(i * my));
    textout(x0 - 25, y0 - round(i * my), inttostr(i));
  end;
  textout(x0 + 5, y0 + 10, '0');
  textout(windowwidth - 10, y0 - 15, 'X');
  textout(x0 + 5, 10, 'Y');
  x := a;
  setpencolor(clBlue);
  while x <= b do
  begin
    if x = a then 
      moveto(x0 + round(x * mx), y0 - round(F(x) * my))
    else 
    begin
      setpencolor(clBlue);
      setbrushcolor(clBlue);
      circle(x0 + round(x * mx), y0 - round(F(x) * my), 10);
      sleep(100);
      setpencolor(clWhite);
      setbrushcolor(clWhite);
      circle(x0 + round(x * mx), y0 - round(F(x) * my), 11);
    end;
    x := x + 0.1;
  end;
  setfontsize(1);
  textout(x0 + 50, 10, 'F(x)=sqrt(x)');
  textout(x0 + 50, 30, 'интервал [0;6]');
end.

uses graphABC;
function F(x: real): real;
begin
  F:=sqrt(x);
end;
const a=0;
      b=6;
var x0,y0:integer;
    mx,my:real;
procedure grafic;
var i:integer;
    x:real;
begin
line(x0,y0,windowwidth,y0);
line(x0,0,x0,y0);
setbrushstyle(bsClear);
for i := 1 to b do
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);
  textout(x0+round(i*mx),y0+10,inttostr(i));
  line(x0-3,y0-round(i*my/2),x0+3,y0-round(i*my/2));
  textout(x0-25,y0-round(i*my/2),floattostr(i/2));
 end;
textout(x0+5,y0+10,'0');
textout(windowwidth-20,y0-20,'X');
textout(x0+5,10,'Y');
x:=a;
setpencolor(clBlue);
while x<=b do
 begin
  if x=a then moveto(x0+round(x*mx),y0-round(F(x)*my))
  else lineto(x0+round(x*mx),y0-round(F(x)*my));
  x:=x+0.1;
 end;
end;
procedure sharik(x,y:integer);
begin
setpencolor(clRed);
setbrushcolor(clRed);
circle(x,y,10);
end;
var x,y:real;
    x1,y1:integer;
begin
setwindowsize(800,500);
centerwindow;
x0:=50;
y0:=windowheight-50;
mx:=(windowwidth-x0-10)/b;
my:=(y0-30)/F(b);
lockdrawing;
x:=a;
y:=F(a);
x1:=x0+round(x*mx);
y1:=y0-round(F(x)/my);
repeat
clearwindow;
grafic;
sharik(x1,y1);
sleep(100);
x:=x+0.1;
x1:=x0+round(x*mx);
y1:=y0-round(F(x)*my);
redraw;
until x>b;
end.