графика, линии Опции

[Formula]

вывести N-ое количество линий, пересекающих прямоугольник.

помогите сделать так, что б линии начинали выводится не от средины экрана,а от начала =(((

 Program Line7;
Uses Graph,CRT;
label 1;
var
x0,y0,x00,y00,x1,y1,x2,y2,g,a,b,n,i:integer;
driver,regim,error:integer;

Begin
clrscr;
  Detectgraph(driver,regim);
Initgraph(driver,regim,'G:\TP7\BGI');
Error:=GraphResult;
if Error <> grOK then
begin
writeln(GraphErrorMsg(Error));
Halt(Error)
end;
readln(n);
ClearDevice;
SetColor(LightGreen);
Rectangle(5,478,300,200);
SetColor(Red);
SetLineStyle(0,0,1);
x0:=0; y0:=480;
x00:=640; y00:=0;
Line(x0,y0,x00,y00);
g:=x00 div n; 
for i:=1 to n do begin
Line(x0,y0,x00+g,y00+g);
g:=g+15;
end;

Readln;
end.