Изобразить на экране точку, пересекающую с постоянной скоростью экран справа налево параллельно ее горизонтальной оси — Pascal(Паскаль)

uses graph,crt;
var x,y:integer;
begin
x:=0;
initgraph(x,y,'');
x:=getmaxX-10;
y:=getmaxY div 2;
repeat
setcolor(12);
circle(x,y,1);
delay(100);
setcolor(0);
circle(x,y,1);
x:=x-5;
until x<10;
setcolor(12);
outtextXY(getmaxX div 2-80,30,'Press any key...');
readkey
end.