var draiver, mood, viga: integer;

Procedure Graf;
          begin
               draiver:=detect;
               Initgraph(draiver, mood, '');
               viga:=GraphResult;
               if viga <> GrOK then
               begin
                    writeln('Graafikaviga ',GraphErrorMsg(viga));
                    Halt(1);
               end;
          end;