Напиште пожалуйста за что отвечаеткаждая строчка

[Saaashka]

Program graph_14_4;
uses crt,dos,graph;
var
i,j,di,dj:integer;
driver,mode,errcode:integer;
path:string;
procedure paint;
 begin
if i=480 then i:=-0;
 if j=240 then  j:=-0;
  Setcolor(7);
setlinestyle(solidln,0,normwidth);
line(120+i,20+j,100+i,100+j);
line(100+i,100+j,140+i,100+j);
line(140+i,100+j,120+i,20+j);
line(120+i,20+j,140+i,60+j);
line(140+i,60+j,140+i,100+j);
setlinestyle(dottedln,0,1+j);
line(100+i,100+j,140+i,60+j);
 end;
begin
 i:=0;
 j:=0;
 driver:=vga;
 mode:=vgahi;
 path:='C:\BP\';
 initgraph(driver,mode,path);
 ErrCode:=graphResult;
 if ErrCode<>grok then
  begin
   writeln('Error');
   readln;
   halt(1);
  end;
repeat
 paint;
 delay(50);
 cleardevice;
 inc(i);
 inc(j);
until keypressed;
closegraph;

[Stilet]

Смотри сюда Тут основные моменты: http://programmersforum.ru/showthread.php?t=22628

Кроме того
setlinestyle(solidln,0,normwidth); ставить стиль линии - цельная, нормальной ширины.

Остальное в полной мере описано в книгах для новичков по паскалю и есстесственно в хелпе паскаля.