Program Meng-input Garis dengan Pascal

ini ane nge-share lagi gan, tugas grafika komputer ane dulu..
programnya pake pascal, sederhana sih, tapi semoga bermanfaat,, nih kode programnya :

Uses Graph;
VAR        x1, x2, y1, y2 : integer;
                DriverGrafis,
                ModeGrafis : integer;
BEGIN
                WriteLn ('x1 : ');
                ReadLn (x1);

                WriteLn ('x2 : ');              
                ReadLn (x2);

                WriteLn ('y1 : ');
                ReadLn (y1);

                WriteLn ('y2 : ');        
                ReadLn (y2);

                DriverGrafis  :=VGA;
                ModeGrafis  :=VGAHi;
                InitGraph (DriverGrafis, ModeGrafis, '');

                {Garis}

                 Line(x1, x2, y1, y2);
                 ReadLn;
                 CloseGraph;
END.