Задача в Паскале компилируется но не запускается(((...Помогите пожалуйста,на завтра нужно!

[zhavadik]

Программа рисующая координатную сетку:

program tabl;
uses crt, graph;
var
x0,y0:integer; {координаты начала координатных осей}
dx,dy:integer; {шаг координатной сетки (в пикселах)}
h,w:integer; {высота и ширина области вывода координатной сетки}
x,y:integer;
lx,ly:real; {метки (оцифровка) линий сетки по X и Y}
dlx,dly:real; {шаг меток (оцифровки) линий сетки по X и Y}
cross:integer; {счетчик неоцифрованных линий сетки}
dcross:integer; {количество неоцифрованных линий между оцифрованными}
s,q:string;
begin
x0:=30; y0:=220; {оси начинаются в точке (40,250)}
dx:=40; dy:=40; {шар координатной сетки 40 пикселов}
dcross:=1;{ помечать линии сетки X: 1 — каждую;
2 — через одну;
3 — через две;}
dlx:=0.5;{ шаг меток оси X}
dly:=1.0; {шаг меток оси Y, метками будут: 1, 2, 3 и т. д.}
h:=200; w:=300;
begin
cross:=dcross;
Line(x0,y0,x0,y0-h); {ось X}
Line(x0,y0,x0+w, y0); {ось Y}
{засечки, сетка и оцифровка по оси X}
x:=x0+dx;
lx:=dlx;
repeat
Line(x,y0-3,x,y0+3); {засечка}
cross:=cross-1;
if cross = 0 then {оцифровка}
begin
str(lx:x:y,s);
Outtextxy(x-8,y0+5,s);
cross:=dcross ; end;
{Pen.Style:=psDot;}
Line(x,y0-3,x,y0-h); {линия сетки}
{Pen.Style:=psSolid; }
lx:=lx+dlx;
x:=x+dx;
until (x>x0+w);
{засечки, сетка и оцифровка по оси Y}
y:=y0-dy;
ly:=dly;
repeat
Line(x0-3,y,x0+3,y); {засечка}
str(ly:x:y,q);
outTextxy(x0-20,y,q); {оцифровка}
{Pen.Style:=psDot;}
Line(x0+3,y,x0+w,y); {линия сетки}
{Pen.Style:=psSolid;}
y:=y-dy;
ly:=ly+dly; until (y<y0-h);

end;
readkey;
end.

[OCTAGRAM]

Здесь InitGraph нужен

[__STDC__]

Да что такое.... я сегодня нигде не успеваю....

вроде такого.. там ненужный begin еще.. восклицательными знаками отметил изменения

program tabl;
uses crt, graph;
var
x0,y0:integer; {координаты начала координатных осей}
dx,dy:integer; {шаг координатной сетки (в пикселах)}
h,w:integer; {высота и ширина области вывода координатной сетки}
x,y:integer;
lx,ly:real; {метки (оцифровка) линий сетки по X и Y}
dlx,dly:real; {шаг меток (оцифровки) линий сетки по X и Y}
cross:integer; {счетчик неоцифрованных линий сетки}
dcross:integer; {количество неоцифрованных линий между оцифрованными}
s,q:string;

gd,gm: integer; //!!!!

begin
x0:=30; y0:=220; {оси начинаются в точке (40,250)}
dx:=40; dy:=40; {шар координатной сетки 40 пикселов}
dcross:=1;{ помечать линии сетки X: 1 — каждую;
2 — через одну;
3 — через две;}
dlx:=0.5;{ шаг меток оси X}
dly:=1.0; {шаг меток оси Y, метками будут: 1, 2, 3 и т. д.}
h:=200; w:=300;
//begin !!!!!
cross:=dcross;
DetectGraph (gd,gm); //!!!!
InitGraph(gd,gm,''); //!!!!
Line(x0,y0,x0,y0-h); {ось X}
Line(x0,y0,x0+w, y0); {ось Y}
{засечки, сетка и оцифровка по оси X}
x:=x0+dx;
lx:=dlx;
repeat
Line(x,y0-3,x,y0+3); {засечка}
cross:=cross-1;
if cross = 0 then {оцифровка}
begin
str(lx:x:y,s);
Outtextxy(x-8,y0+5,s);
cross:=dcross ; end;
{Pen.Style:=psDot;}
Line(x,y0-3,x,y0-h); {линия сетки}
{Pen.Style:=psSolid; }
lx:=lx+dlx;
x:=x+dx;
until (x>x0+w);
{засечки, сетка и оцифровка по оси Y}
y:=y0-dy;
ly:=dly;
repeat
Line(x0-3,y,x0+3,y); {засечка}
str(ly:x:y,q);
outTextxy(x0-20,y,q); {оцифровка}
{Pen.Style:=psDot;}
Line(x0+3,y,x0+w,y); {линия сетки}
{Pen.Style:=psSolid;}
y:=y-dy;
ly:=ly+dly; until (y<y0-h);
//end; !!!!
readkey;
closegraph; //!!!!
end.