Изобразить на экране точку, пересекающую с постоянной скоростью экран

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.

 Uses
         Crt,
         Graph;
 
       Var
         GraphDriver, { код драйвера графического устройства }
         GraphMode, { код графического режима модуля графики }
         i, j, x
         : integer;
 
       Begin
         ClrScr;
 
         { 
           установка графического режима 
         }
         GraphDriver := Detect;
 
         {
           инициализация графической системы, установка
           графического режима.
         }
         InitGraph (GraphDriver, GraphMode, '');
 
         {
           в цикле ставится точка в позицию (640, 240), сдвигается влево,
           ставится черная точка в позицию белой + один шаг вправо
         }
         for i := 1 to 640 do
         begin
           putpixel (640 - i, 240, 15);
           delay (2000);
           putpixel (640 - i + 1, 240, 0);
         end;
        {
          возврат из графического режима
        }
 
        ReadLn;
        CloseGraph;
      End.