program moving;

uses
  oglgraph, crt, mygraph;

var x,y,vx,r : integer;
    

begin
  GraphIni; {открываем графическое окно - процедура из модуля mygraph}
  x:=getmaxx div 2; {начальные координаты объекта - середина экрана}
  y:=getmaxy div 2;
  vx:=1; {скорость движения}
  r:=50; {радиус окружности}
  repeat 
        clearviewport; {очистка пассивного окна отрисовки}
        SetFillStyle(4,yellow);
        FillEllipse(x,y,r,r);
        graphSwapBuffers; {смена окон отрисовки - мгновенное отображение на дисплее пассивного окна для отрисовки}
        delay(10);
        x:=x+vx;
        if (x+r>=getmaxx) or (x-r<=0) then vx:=-vx;
   until graphkeypressed;

  GraphEnd; {закрываем графическое окно - процедура из модуля mygraph}
end.