Если ты имеешь в виду Borland Pascal 7.0 и ниже, то вот тебе пример из хелпа:
{Sample code for the Initgrf procedure.}
uses Graph;
var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'');
ErrCode := GraphResult;
if ErrCode = grOk then
begin { Do graphics }
Line(0, 0, GetMaxX, GetMaxY);
Readln;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.
остальное - RTFM.
[Ответ]
Практически одно и то же. Различий не помню. Давно дело было.
На мой взгляд, легче было бы тебе пример попробовать, да в хелпе покопаться, чем переспрашивать.
[Ответ]