Pascal/Turbo Pascal - Explicar paso a paso este programa

{Espero esto te ayude}

uses

    crt;

    {Esto es el algoritmo de Linea Bresenham}

  procedure linea(x, y, x2, y2 : integer); {cordenadas de la linea}

  var

     z, dx, dy, ap, bp, xe, ye : integer; {variables locales}

     begin

     if x < x2 then {comprovacion de cordenadas para decidir forma x}

     begin

       xe := 1;  {si x menor x2 entoncas esta forma}

       dx := x2 - x;

     end

  else

     begin

       xe := - 1;  {si no esta otra}

       dx := x - x2;

    end;

   if y < y2 then  {comprovacion de cordenadas para decidir forma y}

   begin

      ye := 1;    {si y menor y2 entoncas esta forma}

      dy := y2 - y;

   end

 else

     begin

        ye := - 1;  {si no esta otra}

        dy := y - y2;

     end;

     gotoxy(x,y);write('.'); {primer punto a partir de este dependiendo de

                              los datos tomados sera }

     if dx > dy then     {si dx mayor dy realizamos esto}

      begin

         ap := (dy - dx) * 2; {tomamos incremento para z en eje y}

         bp := dy * 2;    {tomamos incremento para z en eje x}

         z := bp - dx; {inicio del valor z}

    repeat     {repetimos asta x sea igual a x2 longitud entrada}

        if z >= 0 then  {mientras z sea mayor o igual a cero acemos 1 y 2

                         sino 3 y 2}

        begin

          inc(y,ye); {1}

          inc(z,ap); {1}

        end

    else

        inc(z,bp); {3}

        inc(x,xe); {2}

        gotoxy(x,y);write('.'); {y ponemos punto}

    until x = x2;   {termina cuando son igual}

    end

  else     {si dx > dy entonces esto}

     begin

        ap := (dx - dy) * 2;  {tomamos incremento para z en eje x}

        bp := dx * 2;    {tomamos incremento para z en eje y}

        z := bp - dy;  {inicio del valor z}

     repeat    {repetimos asta y sea igual a y2 longitud entrada}

        if z >= 0 then  {si z mayor o igual 0 entonces 1/2/3 sino 4/3}

        begin

           inc(x,xe);{1}

           inc(z,ap);{2}

        end

    else

        inc(z,bp); {4}

        inc(y,ye); {3}

        gotoxy(x,y);write('.'); {y ponemos punto}

    until y = y2;   {termina cuando son igual}

    end;

  end;

  begin

     clrscr;  {limpia pantalla}

     linea(30,10,50,10); {linea horizontal superior}

     linea(30,10,40,20); {linea inclinada I/D}

     linea(50,10,40,20); {linea inclinada D/I}

     linea(30,17,50,17); {linea horizontal inferior}

     linea(30,17,40,7);  {linea inclinada I/D}

     linea(50,17,40,7);  {linea inclinada D/I}

     readln;    {pausa asta pulsar enter}

    end.