Шаблон для работы с графикой в Паскале

program treug;
uses Graph,crt;
var GrDrv:integer; {Графический драйвер}
GrMode:integer; {Графический режим}
GrErr:integer; {Графическая ошибка}
begin
GrDrv:=Detect;
InitGraph(GrDrv,GrMode,'');
GrErr:=GraphResult;
if GrErr=GrOk then
begin
{Здесь пишется текст программы}
end
else
begin
writeln('Ошибка графики',GraphErrorMsg(GrErr));
readln;
end;
end.