procedure InitGraphics;
var
  grDriver : Integer;
  grMode   : Integer;
  ErrCode  : Integer;
begin
  grDriver := Detect;
  InitGraph(grDriver,grMode,'');
  ErrCode := GraphResult;
  if ErrCode <> grOk then
    WriteLn('Graphics error:',
            GraphErrorMsg(ErrCode))
  else
    SetTextJustify( CenterText, CenterText );
end; {InitGraphics}