в чем проблема? добавил в graph.pas
procedure FillArc(X,Y,Angle1,Angle2,R :Integer);
implementation
procedure FillArc(X,Y,Angle1,Angle2,R :Integer);
begin
XFillArc(TheDisplay, TheDrawable, TheGC, X, Y, R, R, Angle1, Angle2);
end;
и мой код
program asd;
Uses graph;
const
grDriver = 0;
var
grMode : integer;
//i : integer;
begin
grMode :=0;
InitGraph(grDriver,grMode,'graph.pas');
FillArc(600,300,0,90,60);
repeat until keypressed;
CloseGraph;
end.
запускается и пустой экран