program przykladowa_grafika;
uses
crt,graph;
var
xk,yk:integer;
procedure grafika(parametr:integer);
var
karta,tryb,blad:integer;
begin
case parametr of
0:closegraph;
1:begin
clrscr;
karta:=detect;
initgraph(karta, tryb, 'c:\tp\bgi');
blad:=graphresult;
if blad<>grok then
begin
writeln('wystapil blad podczas inicjowania trybu graficznego');
writeln('kod bledu : ',blad,'->',grapherrormsg(blad));
halt;
end;
end;
end;
begin
grafika(1);
xk:=getmaxx;
yk:=getmaxy;
cleardevice;
setbkcolor(1);
setcolor(15);
line(200,400,450,400);
line
repeat until keypressed;
grafika(0);
end.


reszte zrobcie sami