program project1;

uses
    crt,graph,math;

var
  i : integer;
  x1,x2,y1,y2 : integer;
  Vx,Vy : integer;


procedure wlaczgrafike();
var
   karta, tryb : smallint;
   PathToDriver : string = 'D:Programy\lazarus\FPC\2.2.4\units\i386-win32';
begin
   detectgraph(karta,tryb);
   InitGraph(karta,tryb,PathToDriver);
end;

procedure wylaczgrafike();
begin
     CloseGraph;
end;

procedure ruchprawo();
          begin
               rectangle(100,100,600,400);
               SetFillStyle(solidFill, white);
               fillellipse(x1,y1,15,15);
               x1:=x1+Vx;
               y1:=y1+Vy;
               if x1=600 then
                      ruchlewo;
               delay(150);
               cleardevice;
               ruchprawo;
          end;

procedure ruchlewo();
          begin
               rectangle(100,100,600,400);
               SetFillStyle(solidFill, white);
               fillellipse(x1,y1,15,15);
               x1:=x1-Vx;
               y1:=y1+Vy;
               if x1=600 then
                      ruchprawo;
               delay(150);
               cleardevice;
               ruchlewo;
          end;

begin

     x1:=100;
     y1:=250;
     Vx:=10;
     Vy:=0;

     wlaczgrafike();

     ruchprawo;

     readln;

     wylaczgrafike();
end.