var draiver, mood, viga: integer;

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